Histórico da Página
...
- cnpj_empresa- Empresa logada no aplicativo - SIGAMAT
- cod_query- Código da Query que será executada para a exbição dos dados de retorno no APP, as queries são executadas juntamente com a rotina banco de queries do APP, rotina LOCA098
- cod_for - Código do Fornecedor da filial logada
- loj_for - Loja do Fornecedor da filial logada
- cdtini - data de inicio da emissão do titulo - tem que ser no formato americano - yyyymmdd
- cdfin - data de fim da emissão do titulo - tem que ser no formato americano - yyyymmdd
Obrigatórios:
- cnpj_empresa
- cod_query
- cod_for
- loj_for
- cdtini
- cdtfim
Parâmetros de entrada para retornar Tabela de Preço de Compras por Fornecedor (09)
...
Para execução da Query 01 { Para execução da Query 02 { Para execução da Query 03 { Para execução da Query 04 { Para execução da Query 05 { Para execução da Query 06 { Para execução da Query 07 { Para execução da Query 08 { Para execução da Query 09 { Para execução da Query 10 { | |
...
cod_query = 01 { cod_query = 02 { cod_query = 03 { cod_query = 04 { cod_query = 05 { cod_query = 06 { } cod_query = 07 { cod_query = 08 { cod_query = 09 { cod_query = 10 { |
...
cQuery := "SELECT T9_FILIAL, T9_CODBEM, T9_NOME, T9_PLACA, T9_CODFAMI, T6_NOME "
cQuery += "FROM "+RETSQLNAME("ST9")+" ST9 "
cQuery += "INNER JOIN "+RetSqlName("ST6")+" ST6 ON T6_CODFAMI = T9_CODFAMI AND ST6.D_E_L_E_T_ = '' "
cQuery += "WHERE T9_FILIAL = '" + xFilial('ST9') + "' "
If !Empty(cPlaca)
cQuery += "AND LTRIM(RTRIM(REPLACE(T9_PLACA,'-',''))) = '" + cPlaca + "' "
EndIf
If !Empty(cBem)
cQuery += "AND T9_CODBEM = '" + cBem + "' "
EndIf
cQuery += "AND ST9.D_E_L_E_T_ = ' ' "
cod08
cQuery := "SELECT SF1.F1_DOC NOTA, "
cQuery += "MAX(FH1.FH1_ORDEM) OS, "
cQuery += "MAX(FH1.FH1_PEDCOM) PED_COMPRA, "
cQuery += "SE2.E2_VALOR VLR_TOTAL, "
cQuery += "MAX(SF1.F1_EMISSAO) EMISS_NOTA, SE2.E2_NUM NUM_TITU, "
cQuery += "MAX(SE2.E2_EMISSAO) EMISS_TIT, "
cQuery += "(SE2.E2_PARCELA) PARCELA, "
cQuery += "MAX(SE2.E2_EMISSAOVENCREA) PREV_PAGTO, "
cQuery += "MAX(SE2.E2_BAIXA) PAGO_EM "
cQuery += "FROM "+RETSQLNAME("SE2")+" SE2 "
cQuery += "INNER LEFT JOIN "+RetSqlName("SD1")+" SD1 ON SD1.D1_FILIAL = SE2.E2_FILIAL "
cQuery += "AND SD1.D1_DOC = SE2.E2_NUM AND SD1.D_E_L_E_T_ = '' "
cQuery += "AND SD1.D1_FORNECE = SE2.E2_FORNECE AND SD1.D1_LOJA = SE2.E2_LOJA "
cQuery += "INNER LEFT JOIN "+RetSqlName("SF1")+" SF1 ON SF1.F1_FILIAL = SD1.D1_FILIAL "
//cQuery += "AND SF1.F1_DOC = SD1.D1_DOC AND SF1.D_E_L_E_T_ = '' AND SF1.F1_FORNECE = '"+cCodFor+"' AND SF1.F1_LOJA = '"+cLojFor+"' "
cQuery += "AND SF1.F1_DOC = SD1.D1_DOC AND SF1.F1_LOJA = '"+cLojFor+"D_E_L_E_T_ = '' "
cQuery += "INNER LEFT JOIN "+RetSqlName("FH1")+" FH1 ON FH1.FH1_FILIAL = SD1.D1_FILIAL "
cQuery += "AND FH1.FH1_PEDCOM = SD1.D1_PEDIDO AND FH1.FH1_CODIGO = SD1.D1_COD AND FH1.D_E_L_E_T_ = '' "
cQuery += "WHERE SE2.E2_FILIAL = '" + xFilial('SE2') + "' AND SE2.D_E_L_E_T_ = '' "
cQuery += "AND SE2.E2_FORNECE = '"+cCodFor+"' AND SE2.E2_LOJA = '"+cLojFor+"' "
cQuery += "AND SE2.E2_EMISSAO >= '"+cdtini+"' AND SE2.E2_EMISSAO <= '"+cdtfim+"' "
cQuery += "GROUP BY SF1.F1_DOC,SE2.E2_VALOR,SE2.E2_PARCELA,SE2.E2_NUM "
cod09
cQuery := "SELECT AIA_DATATE,AIB.AIB_CODFOR,AIB.AIB_LOJFOR, AIB.AIB_CODPRO, "
cQuery += "SB1.B1_DESC, SB1.B1_UM,AIB.AIB_PRCCOM,AIB_CODTAB, AIB.AIB_ITEM "
cQuery += "FROM "+RETSQLNAME("AIA")+" AIA "
cQuery += "INNER JOIN "+RetSqlName("AIB")+" AIB ON AIA.AIA_CODTAB = AIB.AIB_CODTAB "
cQuery += "AND AIA.AIA_FILIAL = AIB.AIB_FILIAL AND AIB.AIB_FILIAL = '" + xFilial('AIB') + "' AND AIB.D_E_L_E_T_ = '' "
cQuery += "AND AIB.AIB_CODFOR = '"+cCodFor+"' AND AIB.AIB_LOJFOR = '"+cLojFor+"' AND AIB.D_E_L_E_T_ = '' "
cQuery += "INNER JOIN "+RetSqlName("SB1")+" SB1 ON AIB.AIB_CODPRO = SB1.B1_COD "
cQuery += "AND SB1.B1_FILIAL = '" + xFilial('SB1') + "'AND SB1.D_E_L_E_T_ = '' "
cQuery += "WHERE AIA.AIA_FILIAL = '" + xFilial('AIA') + "' AND AIA.D_E_L_E_T_ = '' "
cQuery += "AND AIA.AIA_DATATE >= '"+DTOS(dDataBase)+"' "
cQuery += "ORDER BY AIB.AIB_CODTAB "
...