×
Linguagem de Programação ADVPL
Perguntas aCols e aHeader
- andreia296
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 38
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23891
por andreia296
aCols e aHeader foi criado por andreia296
Boa noite
Por favor alguem pode me ajudar??
Como eu crio um aCols e um aHeader da query abaixo para jogar em um MsNewGetDados??
cQuery:= " SELECT F2_NUMROMA 'Romaneio' , " +CRLF
cQuery += " F2_DOC 'Nota' , " +CRLF
cQuery += " F2_SERIE 'Serie' , " +CRLF
cQuery += " F2_NFELETR 'Nfe' , " +CRLF
cQuery += " F2_CLIENTE 'CLIENTE' , " +CRLF
cQuery += " A1_NOME 'NOME' , " +CRLF
cQuery += " F2_LOJA 'Loja' , " +CRLF
cQuery += " F2_EMISSAO 'Emissao' , " +CRLF
cQuery += " F2_EST 'Estado' , " +CRLF
cQuery += " F2_VALBRUT 'VlBruto' , " +CRLF
cQuery += " F2_VALICM 'VlICMS' , " +CRLF
cQuery += " F2_ESPECI1 'Especi1' , " +CRLF
cQuery += " F2_VOLUME1 'Volume1' , " +CRLF
cQuery += " F2_ICMSRET 'ICMSRet' , " +CRLF
cQuery += " F2_PBRUTO 'PesoBruto' , " +CRLF
cQuery += " C5_TRANSP 'Transp' , " +CRLF
cQuery += " A4_NOME 'NomeTransp' , " +CRLF
cQuery += " F2_VEND1 'Vendedor' , " +CRLF
cQuery += " A3_NOME 'NomeVend' , " +CRLF
cQuery += " F2_ESPECIE 'EspecieDoc' , " +CRLF
cQuery += " F2_HORNFE 'Hora' , " +CRLF
cQuery += " C5_MENNOTA 'Obs' " +CRLF
cQuery += " FROM "+ RetSqlName("SF2") + " SF2 "
cQuery += " INNER JOIN "+ RETSQLNAME("SC5") + " SC5 ON F2_TRANSP =C5_TRANSP AND C5_CLIENTE =F2_CLIENTE AND SF2.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND C5_LOJACLI = F2_LOJA AND C5_SERIE= F2_SERIE AND C5_CONDPAG= F2_COND AND C5_TPFRETE= F2_TPFRETE AND SC5.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA1") + " SA1 ON F2_CLIENTE =A1_COD AND SA1.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA4") + " SA4 ON F2_TRANSP =A4_COD AND SA4.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN SA3010 SA3 ON F2_VEND1 =A3_COD AND SA3.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND F2_NUMROMA = ' ' "+CRLF
cQuery += " AND F2_DOC between '" + cNfeDe + "' AND '" + cNfeAte + "' "+CRLF
cQuery += " AND F2_TRANSP between '" + cSA4De + "' AND '" + cSA4Ate + "' "+CRLF
cQuery += " ORDER BY F2_DOC"
cQuery := ChangeQuery(cQuery)
Desde ja Agradeço
Andreia Domingos
Por favor alguem pode me ajudar??
Como eu crio um aCols e um aHeader da query abaixo para jogar em um MsNewGetDados??
cQuery:= " SELECT F2_NUMROMA 'Romaneio' , " +CRLF
cQuery += " F2_DOC 'Nota' , " +CRLF
cQuery += " F2_SERIE 'Serie' , " +CRLF
cQuery += " F2_NFELETR 'Nfe' , " +CRLF
cQuery += " F2_CLIENTE 'CLIENTE' , " +CRLF
cQuery += " A1_NOME 'NOME' , " +CRLF
cQuery += " F2_LOJA 'Loja' , " +CRLF
cQuery += " F2_EMISSAO 'Emissao' , " +CRLF
cQuery += " F2_EST 'Estado' , " +CRLF
cQuery += " F2_VALBRUT 'VlBruto' , " +CRLF
cQuery += " F2_VALICM 'VlICMS' , " +CRLF
cQuery += " F2_ESPECI1 'Especi1' , " +CRLF
cQuery += " F2_VOLUME1 'Volume1' , " +CRLF
cQuery += " F2_ICMSRET 'ICMSRet' , " +CRLF
cQuery += " F2_PBRUTO 'PesoBruto' , " +CRLF
cQuery += " C5_TRANSP 'Transp' , " +CRLF
cQuery += " A4_NOME 'NomeTransp' , " +CRLF
cQuery += " F2_VEND1 'Vendedor' , " +CRLF
cQuery += " A3_NOME 'NomeVend' , " +CRLF
cQuery += " F2_ESPECIE 'EspecieDoc' , " +CRLF
cQuery += " F2_HORNFE 'Hora' , " +CRLF
cQuery += " C5_MENNOTA 'Obs' " +CRLF
cQuery += " FROM "+ RetSqlName("SF2") + " SF2 "
cQuery += " INNER JOIN "+ RETSQLNAME("SC5") + " SC5 ON F2_TRANSP =C5_TRANSP AND C5_CLIENTE =F2_CLIENTE AND SF2.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND C5_LOJACLI = F2_LOJA AND C5_SERIE= F2_SERIE AND C5_CONDPAG= F2_COND AND C5_TPFRETE= F2_TPFRETE AND SC5.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA1") + " SA1 ON F2_CLIENTE =A1_COD AND SA1.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN "+ RETSQLNAME("SA4") + " SA4 ON F2_TRANSP =A4_COD AND SA4.D_E_L_E_T_=' ' "+CRLF
cQuery += " INNER JOIN SA3010 SA3 ON F2_VEND1 =A3_COD AND SA3.D_E_L_E_T_=' ' "+CRLF
cQuery += " AND F2_NUMROMA = ' ' "+CRLF
cQuery += " AND F2_DOC between '" + cNfeDe + "' AND '" + cNfeAte + "' "+CRLF
cQuery += " AND F2_TRANSP between '" + cSA4De + "' AND '" + cSA4Ate + "' "+CRLF
cQuery += " ORDER BY F2_DOC"
cQuery := ChangeQuery(cQuery)
Desde ja Agradeço
Andreia Domingos
Por favor Acessar ou Registrar para participar da conversa.
- AndersonBR
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 108
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23902
por AndersonBR
Respondido por AndersonBR no tópico aCols e aHeader
Bom Dia,
eu faço assim:
Depois faz um While no retorno da select e joga para o aCols. Pra mim funciona...rs...
Talvez exista uma maneira mais fácil, porém eu desconheço. abraço
eu faço assim:
Aadd(aH1,{"Operação" , "OPERAC", "" ,02, 0, "u_AtuDesc(oBrwAdd:aCols)", "", "C", "XZ", "" } )
Aadd(aH1,{"Descrição" , "DESCOP", "" ,10, 0, "", "", "C", "" , "" } )
Aadd(aH1,{"Data" , "DATPRO", "" ,08, 0, "", "", "D", "" , "" } )
Aadd(aH1,{"Hr. Inicio", "INICIO", "99:99" ,05, 0, "", "", "C", "" , "" } )
Aadd(aH1,{"Hr. Final" , "FINAL" , "99:99" ,05, 0, "", "", "C", "" , "" } )
Aadd(aH1,{"Qtd Pessoa", "QTDADE", "@E 999",10, 0, "", "", "N", "" , "" } )
Aadd(aH1,{"Observação", "OBS" , "@!" ,30, 0, "", "", "C", "" , "" } )
Aadd(aC1,Array(8))
aC1[1][1] := " "
aC1[1][2] := Space(10)
aC1[1][3] := dDataBase
aC1[1][4] := "00:00"
aC1[1][5] := "00:00"
aC1[1][6] := 1
aC1[1][7] := Space(30)
aC1[1][8] := .F.
oDlgTmpOP := MSDialog():New( 092,232,300,850,"Hora x OP",,,.F.,,,,,,.T.,,,.T. )
oBrwAdd := MsNewGetDados():New(004,004,084,306,nOpc,'u_LinhaOK()','AllwaysTrue()','',{"OPERAC","DATPRO","INICIO","FINAL","QTDADE","OBS"},0,99,'AllwaysTrue()','','AllwaysTrue()',oDlgTmpOP, aH1, aC1/*, {|| Alert("OK")}*/ )
//oBrwAdd:AddAction("OPERAC",{||Alert("OK")})
SetKey(VK_F9, {|| actOK(2, oBrwAdd:aCols)})
oBtnOK := TButton():New( 088,229,"OK (F9)",oDlgTmpOP,{|| actOK(2, oBrwAdd:aCols) },037,012,,,,.T.,,"",,,,.F. )
oBtnCancel := TButton():New( 088,269,"Cancelar",oDlgTmpOP,{|| lCont := .F., oDlgTmpOP:End()},037,012,,,,.T.,,"",,,,.F. )
oDlgTmpOP:Activate(,,,.T.)Depois faz um While no retorno da select e joga para o aCols. Pra mim funciona...rs...
Talvez exista uma maneira mais fácil, porém eu desconheço. abraço
Por favor Acessar ou Registrar para participar da conversa.
- andreia296
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 38
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23928
por andreia296
Respondido por andreia296 no tópico aCols e aHeader
Boa tarde
Obrigada Anderson pelo auxilio, mas esta dando erro no meu, vc se impotaria de me mandar um fonte para que possa ter uma ideia melhor?
Se quiser me mande pelo meu email: Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Grata
Andreia
Obrigada Anderson pelo auxilio, mas esta dando erro no meu, vc se impotaria de me mandar um fonte para que possa ter uma ideia melhor?
Se quiser me mande pelo meu email: Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Grata
Andreia
Por favor Acessar ou Registrar para participar da conversa.
- AndersonBR
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 108
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23943
por AndersonBR
Respondido por AndersonBR no tópico aCols e aHeader
Já mandei!
Por favor Acessar ou Registrar para participar da conversa.
- andreia296
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 38
- Obrigados Recebidos: 0
10 anos 4 meses atrás #23945
por andreia296
Respondido por andreia296 no tópico aCols e aHeader
Valeu, te add no meu skype
Obrigada
Andreia Domingos
Obrigada
Andreia Domingos
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.094 segundos