SELECT:TODAY #DATE() AS D FROM DUAL;

#SET(TBPROD, ${#CREATETABLE(FILIAL             INTEGER,
                            PRODUTO            INTEGER,
                            COR                INTEGER,
                            ESTAMPA            INTEGER,
                            TAMANHO            VARCHAR(5),
                            TIPO               VARCHAR(2),
                            QUANTIDADE         DOUBLE PRECISION
                            )});

CREATE INDEX #REPLACE(TBPROD)_1 ON #REPLACE(TBPROD) (PRODUTO,COR,ESTAMPA,TAMANHO);
CREATE INDEX #REPLACE(TBPROD)_2 ON #REPLACE(TBPROD) (FILIAL,PRODUTO,COR,ESTAMPA,TAMANHO);

#EACH () ITENS AS RESULT;
  #SELECT ( RESULT.SELECIONADO , FALSE : {},ELSE:{
    INSERT INTO #REPLACE(TBPROD) (PRODUTO,COR,ESTAMPA,TAMANHO,QUANTIDADE,TIPO,FILIAL)
      VALUES (:RESULT.PRODUTO,:RESULT.COR,:RESULT.ESTAMPA,:RESULT.TAMANHO,ABS(:RESULT.QUANTIDADE),'AC',:RESULT.FILIAL);
  });


#EACH() SELECT:FIL T.FILIAL, FL.CENTRO_CUSTOS FROM #REPLACE(TBPROD) T INNER JOIN FILIAIS FL ON FL.FILIAL = T.FILIAL GROUP BY 1,2;
    #SELECT(FIL._EOF ,TRUE:{}
      ,ELSE:{
        #EACH() SELECT:RESULT_PROD * FROM #REPLACE(TBPROD) X WHERE X.FILIAL = #REPLACE(FIL.FILIAL);
          #SELECT(RESULT_PROD._EOF, TRUE:{}
            ,ELSE:{
              #EACH() #CALL:COD MILLENIUM.UTILS.DEFAULT(NOME="COD_REQUISICAO",TAMANHO=10);
              //#CHECK("SELECT COUNT(CENTRO_CUSTOS) AS N FROM CENTRO_CUSTOS WHERE CENTRO_CUSTOS = :FIL.CENTRO_CUSTOS",n=0,"Centro de custo não foi informado no cadastro de filiais !");
                #CALL MILLENIUM.REQUISICOES_COMPRA.incluir(
                  COD_REQUISICAO=:COD.RESULT
                 ,FILIAL=#REPLACE(FIL.FILIAL)
	             ,CENTRO_CUSTOS=#REPLACE(FIL.CENTRO_CUSTOS)
                 ,DATA_EMISSAO=:TODAY.D
                 ,PRODUTOS=:RESULT_PROD
              );
            }
          )
      }
   )