Jump to content
Fivewin Brasil

Alain da Silva

Membros
 View Profile  See their activity

  • Posts

    535

  • Joined

  • Last visited

  • Days Won

    10

 Content Type 

Everything posted by Alain da Silva

  1. Alain da Silva
    Valeu Kapiaba, nesse código acima melhou bem, agora esse outro de nota fiscal e dei uma limpada no código mas esta demorando 5 a 6 segundos para mostrar, não sei se esse tempo é normal até porque tem muitas informações. segue o código. *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG DLGVEN2 RESOURCE "FOLDERNFE" COLOR PRETO,CINZACL; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL DLGVEN2 : LHELPICON := .F. // TIRA A ? DA JANELA DLGVEN2: bRClicked = { || MsgInfo("Sem Efeito","BOTÃO DIREITO DO MOUSE") } *----------------------------------------------------------------------------------------* REDEFINE FOLDER FOLVEN id 30 of DLGVEN2; PROMPT " Dados da NF Eletrônica "," Destinatario/Remetente "," Produtos e Serviços da NF-e "," Transporte/Volumes "," Cobrança-Fatura/Duplicata "," Informações Adicionais "; DIALOGS "MANUTNFE","MANUTNFE2","MANUTNFE3","MANUTNFE4","MANUTNFE6","MANUTNFE5"; BITMAPS "NOVOM","CLIENTEM","PRODUTOM","MOTORISTAM","BAIXAM","CONTRATUAL"; TABCOLOR AZUL ; FOCUSCOLOR VERMELHO *NOTAS REFERENCIADAS--------------------------------------------------------------------------------- SELE 18 DBSETORDER(1) REDEFINE LISTBOX OBRWVEN2 FIELDS ARQNFERF->CHAVE,ARQNFERF->UF,ARQNFERF->MESANO,ARQNFERF->CNPJ,STR(ARQNFERF->SERIERF,3),STR(ARQNFERF->NUMERO,11),STRZERO(ARQNFERF->MODELO,2) ID 21 Alias "ARQNFERF" ; HEADERS "CHAVE DE ACESSO","UF","MES E ANO","C.N.P.J.","SÉRIE","NÚMERO","MODELO"; FieldSizes 350,50,100,200,50,100,50; COLOR BRANCO,BRANCO OF FOLVEN:ADIALOGS[1] UPDATE **--[ Colunas do ListBox ]--** OBRWVEN2:NCLRBACKHEAD := CORTABELA //GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRWVEN2:nClrText :={ || PRETO } OBRWVEN2:nClrForeFocus :={ || PRETO } OBRWVEN2:nClrBackFocus :={ || CINZA } // cor do fundo barra ativa OBRWVEN2:nClrNFBack :={ || IIF(ARQNFERF->(OrdKeyNo())%2==0,CINZA,CINZA)} // cor da barra ativa (DISABLE) OBRWVEN2:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRWVEN2:aHJustify :={0,2,2,0,0,0,0} OBRWVEN2:aJustify :={0,2,2,0,0,0,0} OBRWVEN2:nLineHeight :=22 OBRWVEN2:nLineStyle :=2 OBRWVEN2:nHeaderStyle :=2 OBRWVEN2:nHeaderHeight :=20 OBRWVEN2:blDblClick := {| | IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTNFERF("A"),SAIDLG:=.F.),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")) } OBRWVEN2:bKeyChar := {|nKey|if(nKey == 13,IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTNFERF("A"),SAIDLG:=.F.),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")),)} OBRWVEN2:REFRESH() *VOLUMES--------------------------------------------------------------------------------- SELE 19 DBSETORDER(1) REDEFINE LISTBOX OBRWVEN4 FIELDS STRZERO(ARQVOL->ITEM,3),STR(ARQVOL->QUANTIDADE,3),SUBS(ARQVOL->ESPECIE,1,30),SUBS(ARQVOL->MARCA,1,30),SUBS(ARQVOL->NUMERACAO,1,30),STR(ARQVOL->PESO,14,3),STR(ARQVOL->BRUTO,10,3) ID 21 Alias "ARQVOL" ; HEADERS "ITEM","QUANTIDADE","ESPECIE","MARCA","NÚMERO DO VOLUME","PESO LIQUIDO","PESO BRUTO"; FieldSizes 50,100,200,200,200,100,100; COLOR BRANCO,BRANCO OF FOLVEN:ADIALOGS[4] UPDATE **--[ Colunas do ListBox ]--** OBRWVEN4:NCLRBACKHEAD := CORTABELA //GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRWVEN4:nClrText :={ || PRETO } OBRWVEN4:nClrForeFocus :={ || PRETO } OBRWVEN4:nClrBackFocus :={ || CINZA } // cor do fundo barra ativa OBRWVEN4:nClrNFBack :={ || IIF(ARQVOL->(OrdKeyNo())%2==0,CINZA,CINZA)} // cor da barra ativa (DISABLE) OBRWVEN4:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRWVEN4:aHJustify :={2,2,0,0,0,2,2} OBRWVEN4:aJustify :={2,2,0,0,0,2,2} OBRWVEN4:nLineHeight :=22 OBRWVEN4:nLineStyle :=2 OBRWVEN4:nHeaderStyle :=2 OBRWVEN4:nHeaderHeight :=20 OBRWVEN4:blDblClick := {|| IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTVOL("A"),SAIDLG:=.F.),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")) } OBRWVEN4:bKeyChar := {|nKey|if(nKey == 13,IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTVOL("A"),SAIDLG:=.F.),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")),)} OBRWVEN4:REFRESH() *PRODUTOS --------------------------------------------------------------------------------- SELE 16 DBSETORDER(1) REDEFINE LISTBOX OBRWVEN6 FIELDS STRZERO(ARQNFEPRO->ITEM,2),STR(ARQNFEPRO->CODIGO,11),SUBS(ARQNFEPRO->DESCRICAO,1,50),ARQNFEPRO->NCM,SUBS(ARQNFEPRO->CFO,1,6),ARQNFEPRO->UNIDADE,STR(ARQNFEPRO->QUANTIDADE,12,4),STR(ARQNFEPRO->UNITARIO,12,4),STR(ARQNFEPRO->TOTALBRUTO,12,2),STR(ARQNFEPRO->DESCONTO,12,2),STR(ARQNFEPRO->BICMS,12,2),STR(ARQNFEPRO->ALIQUOTA,6,2),STR(ARQNFEPRO->VICMS,12,2),STR(ARQNFEPRO->ALIQIPI,6,2),STR(ARQNFEPRO->VALORIPI,12,2),ARQNFEPRO->REGIME,ARQNFEPRO->SITUACAO,ARQNFEPRO->ORIGEM ID 21 Alias "ARQNFEPRO" ; HEADERS "ITEM","CODIGO","DESCRICAO DO PRODUTO","NCM","CFO","UNID","QUANT","VALOR UNIT.","TOTAL","DESCONTO","BASE ICMS","Aliq.ICMS","V.ICMS","Aliq.IPI","V.IPI","Regime","Situação Tributária","Origem"; FieldSizes 30,50,240,55,50,30,61,70,70,70,61,61,55,55,70,150,250,50; COLOR BRANCO,BRANCO OF FOLVEN:ADIALOGS[3] UPDATE **--[ Colunas do ListBox ]--** OBRWVEN6:NCLRBACKHEAD := CORTABELA //GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRWVEN6:nClrText :={ || PRETO } OBRWVEN6:nClrForeFocus :={ || PRETO } OBRWVEN6:nClrBackFocus :={ || CINZA } // cor do fundo barra ativa OBRWVEN6:nClrNFBack :={ || IIF(ARQNFEPRO->(OrdKeyNo())%2==0,CINZA,CINZA)} // cor da barra ativa (DISABLE) OBRWVEN6:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRWVEN6:aHJustify :={2,1,2,1,2,2,1,1,1,1,1,2,1,2,1,0,0,0} OBRWVEN6:aJustify :={2,1,0,1,2,2,1,1,1,1,1,2,1,2,1,0,0,0} OBRWVEN6:nLineHeight :=21 OBRWVEN6:nLineStyle :=2 OBRWVEN6:nHeaderStyle :=2 OBRWVEN6:nHeaderHeight :=20 OBRWVEN6:blDblClick := {| | IIF(OBOTAO[4]:LACTIVE=.T.,(MsgRun("Produtos e Serviços da NFe","Aguarde...Carregando Tela de Produtos e Serviços",{||MANUTNFEPRO("A")}),SAIDLG:=.F.,TOTALIZADOR(@WQUANT,@WUNIT,@WBASE,@WICMS,@WIPI,@WDESC,OBRWVEN6,OBRWVEN8,OBJVEN)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")) } OBRWVEN6:bKeyChar := {|nKey|if(nKey == 13,IIF(OBOTAO[4]:LACTIVE=.T.,(MsgRun("Produtos e Serviços da NFe","Aguarde...Carregando Tela de Produtos e Serviços",{||MANUTNFEPRO("A")}),SAIDLG:=.F.,TOTALIZADOR(@WQUANT,@WUNIT,@WBASE,@WICMS,@WIPI,@WDESC,OBRWVEN6,OBRWVEN8,OBJVEN)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")),)} OBRWVEN6:bFont :={|nRow,nCol,nStyleLine| pFonteBrowse( FOLVEN:ADIALOGS[3], OBRWVEN6, nRow, nCol, nStyleLine,Arial10,Arial10,FBOLDD,IIF(OBRWVEN6:lFocused,Arial10,Arial10) ) } *------------------------//RODAPE TOTAL OBRWVEN6:lDrawFooters := .T. // Ativa o footer OBRWVEN6:nClrFFore :={|| VERMELHO} OBRWVEN6:nClrFBack :={|| GetSyscolor(15)} OBRWVEN6:nFooterHeight :=21 OBRWVEN6:nFooterStyle :=2 OBRWVEN6:nFooterHeight :=20 OBRWVEN6:aFJustify :={1,1,0,1,2,2,1,1,1,1,1,1,1,2,0,0,0} OBRWVEN6:aFooters :={||{"","","","","","",Transf(WQUANT,"@E 999,999.9999"),"",Transf(WUNIT,"@E 999,999.99"),Transf(WDESC,"@E 999,999.99"),Transf(WBASE,"@E 999,999.99"),"",Transf(WICMS,"@E 999,999.99"),"",Transf(WIPI,"@E 999,999.99")}} OBRWVEN6:SetSize(50,6,.t.) *DUPLICATAS--------------------------------------------------------------------------------- SELE 20 DBSETORDER(1) REDEFINE LISTBOX OBRWVEN8 FIELDS STRZERO(ARQDUP->ITEM,3),STR(ARQDUP->PRAZO,2),DTOC(ARQDUP->VENCTO),TRANS(ARQDUP->VALOR,"@E 9,999,999.99"),ARQDUP->FATURA ID 21 Alias "ARQDUP" ; HEADERS "ITEM","PRAZO","VENCIMENTO","VALOR","Nº FATURA"; FieldSizes 50,50,100,100,610; COLOR BRANCO,BRANCO OF FOLVEN:ADIALOGS[5] UPDATE **--[ Colunas do ListBox ]--** OBRWVEN8:NCLRBACKHEAD := CORTABELA //GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRWVEN8:nClrText :={ || PRETO } OBRWVEN8:nClrForeFocus :={ || PRETO } OBRWVEN8:nClrBackFocus :={ || CINZA } // cor do fundo barra ativa OBRWVEN8:nClrNFBack :={ || IIF(ARQDUP->(OrdKeyNo())%2==0,CINZA,CINZA)} // cor da barra ativa (DISABLE) OBRWVEN8:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRWVEN8:aHJustify :={2,2,2,1,0} OBRWVEN8:aJustify :={2,2,2,1,0} OBRWVEN8:nLineHeight :=22 OBRWVEN8:nLineStyle :=2 OBRWVEN8:nHeaderStyle :=2 OBRWVEN8:nHeaderHeight :=20 OBRWVEN8:blDblClick := {||IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTDUP("A"),SAIDLG:=.F.,ACUMULA_VALOR(@WTOTAL,@WDIFE),OBRWVEN8:REFRESH()),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO"))} OBRWVEN8:bKeyChar := {|nKey|if(nKey == 13,IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTDUP("A"),SAIDLG:=.F.,ACUMULA_VALOR(@WTOTAL,@WDIFE),OBRWVEN8:REFRESH()),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")),)} OBRWVEN8:bFont := {|nRow,nCol,nStyleLine| pFonteBrowse( FOLVEN:ADIALOGS[5], OBRWVEN8, nRow, nCol, nStyleLine,FNORMAL,FNORMAL,FBOLD,IIF(OBRWVEN8:lFocused,FNORMAL,FNORMAL) ) } OBRWVEN8:REFRESH() **--[ Footers - rodape do listbox ]--** OBRWVEN8:lDrawFooters := .T. // Ativa o footer OBRWVEN8:nClrFFore :={|| VERMELHO} OBRWVEN8:nClrFBack :={|| GetSyscolor(15)} OBRWVEN8:nFooterHeight :=20 OBRWVEN8:nFooterStyle :=6 OBRWVEN8:aFJustify :={2,2,2,1,0} OBRWVEN8:aFooters :={||{"","","",Transf(WTOTAL,"@E 999,999.99"),IIF(VAL(STR(WDIFE,12,2))<>0,"DIFERENÇA NAS PARÇELAS -->"+Transf(WDIFE,"@E 999,999.99"),"")}} OBRWVEN8:SetSize(50,6,.t.) *------------------------------------------------------------------------------------------- SELE 17 *---------------------------------------------------------------------------- REDEFINE Group Id 23 OF FOLVEN:ADIALOGS[4] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 102 OF FOLVEN:ADIALOGS[4] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 19 OF FOLVEN:ADIALOGS[4] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 37 OF FOLVEN:ADIALOGS[1] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 23 OF FOLVEN:ADIALOGS[2] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 37 OF FOLVEN:ADIALOGS[2] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 37 OF FOLVEN:ADIALOGS[3] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 19 OF FOLVEN:ADIALOGS[2] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 19 OF FOLVEN:ADIALOGS[1] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 23 OF FOLVEN:ADIALOGS[5] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 19 OF FOLVEN:ADIALOGS[5] FONT FNORMAL; Color VERMELHO TRANSPARENT REDEFINE Group Id 23 OF FOLVEN:ADIALOGS[6] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 102 OF FOLVEN:ADIALOGS[6] FONT FNORMAL; Color VERDEAGUA TRANSPARENT REDEFINE Group Id 12 OF FOLVEN:ADIALOGS[6] FONT FNORMAL; Color VERDEAGUA TRANSPARENT *------- identificação REDEFINE SAY ID 32 FONT FNORMALSAY COLOR PRETO,CINZACL OF DLGVEN2 REDEFINE SAY ID 34 FONT FNORMALSAY COLOR PRETO,CINZACL OF DLGVEN2 REDEFINE SAY ID 35 FONT FNORMALSAY COLOR PRETO,CINZACL OF DLGVEN2 REDEFINE SAY ID 9 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 11 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 38 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 20 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 22 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 24 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 26 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 46 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 31 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 29 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 14 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 17 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 25 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 33 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 44 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 36 FONT FNORMAL COLOR VERMELHO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 40 FONT FNORMAL COLOR VERMELHO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID 42 FONT FNORMAL COLOR VERMELHO,CINZACL OF FOLVEN:ADIALOGS[1] REDEFINE SAY ID -4 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -20 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 30 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 103 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 104 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 105 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 106 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 107 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 108 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 109 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -2 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -6 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -18 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -7 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -8 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -10 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -11 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -13 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -14 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -15 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -9 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -12 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID -16 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 44 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 17 FONT FNORMAL COLOR VERMELHO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 35 FONT FNORMAL COLOR VERMELHO,CINZACL OF FOLVEN:ADIALOGS[2] REDEFINE SAY ID 103 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -4 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -20 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -2 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -6 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -8 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -9 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID 44 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID -10 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID 10 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID 12 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID 13 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[4] REDEFINE SAY ID 10 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[6] REDEFINE SAY ID 31 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[5] REDEFINE SAY ID 34 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[5] REDEFINE SAY ID 36 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[5] REDEFINE SAY ID 20 FONT FNORMAL COLOR PRETO,CINZACL OF FOLVEN:ADIALOGS[5] *DADOS DA NF-E------- REDEFINE SAY OBJVEN[1] VAR STRZERO(VARNFE[1],3) ID 3 OF FOLVEN:ADIALOGS[1] FONT FNORMAL REDEFINE SAY OBJVEN[2] VAR TRANS(STRZERO(VARNFE[2],11),"@E 99999999999") ID 4 FONT FEXPAND OF FOLVEN:ADIALOGS[1] COLOR PRETO REDEFINE BTNGET OBJVEN[7] VAR VARNFE[7] ID 10 PICTURE "99/99/9999" OF FOLVEN:ADIALOGS[1] FONT FNORMAL RESOURCE "CALENDARIO" Action CALEND(@VARNFE[7],OBJVEN[7]) REDEFINE CHECKBOX OBJVEN[11] VAR VARNFE[11] ID 16 OF FOLVEN:ADIALOGS[1] ON CHANGE (FOLVEN:ADIALOGS[1]:aEvalWhen(), OBJVEN[12]:ENABLE(),OBJVEN[13]:ENABLE(),OBJVEN[12]:Refresh(),OBJVEN[13]:REFRESH(),XSETFOCUS(OBJVEN[12]) ) REDEFINE GET OBJVEN[12] VAR VARNFE[12] ID 18 PICTURE "99999999" OF FOLVEN:ADIALOGS[1] FONT FNORMAL WHEN (VARNFE[11]) REDEFINE GET OBJVEN[13] VAR VARNFE[13] ID 23 PICTURE "9" OF FOLVEN:ADIALOGS[1] FONT FNORMAL WHEN (VARNFE[11]) REDEFINE GET OBJVEN[68] VAR VARNFE[64] ID 47 PICTURE "9999999999" OF FOLVEN:ADIALOGS[1] FONT FNORMAL REDEFINE CHECKBOX OBJVEN[18] VAR VARNFE[18] ID 35 OF FOLVEN:ADIALOGS[1] ON CHANGE GRAVA_PEDIDO(VARNFE,OBJVEN) REDEFINE COMBOBOX OBJVEN[4] VAR VARNFE[4] ID 6 ITEMS ARRITEM OF FOLVEN:ADIALOGS[1] REDEFINE COMBOBOX OBJVEN[5] VAR VARNFE[5] ID 7 ITEMS ARRITEM2 OF FOLVEN:ADIALOGS[1] REDEFINE COMBOBOX OBJVEN[10] VAR VARNFE[10] ID 15 ITEMS ARRITEM4 OF FOLVEN:ADIALOGS[1] REDEFINE COMBOBOX OBJVEN[6] VAR VARNFE[6] ID 8 ITEMS ARRITEM3 OF FOLVEN:ADIALOGS[1] REDEFINE BTNGET OBJVEN[8] VAR VARNFE[8] ID 12 PICTURE "99/99/9999" OF FOLVEN:ADIALOGS[1] FONT FNORMAL RESOURCE "CALENDARIO" Action CALEND(@VARNFE[8],OBJVEN[8]) REDEFINE GET OBJVEN[9] VAR VARNFE[9] ID 13 PICTURE "99:99:99" OF FOLVEN:ADIALOGS[1] FONT FNORMAL REDEFINE COMBOBOX OBJVEN[63] VAR VARNFE[59] ID 39 ITEMS ARRITEM9 OF FOLVEN:ADIALOGS[1] REDEFINE COMBOBOX OBJVEN[64] VAR VARNFE[60] ID 41 ITEMS ARRITEM10 OF FOLVEN:ADIALOGS[1] REDEFINE COMBOBOX OBJVEN[65] VAR VARNFE[61] ID 45 ITEMS ARRITEM11 OF FOLVEN:ADIALOGS[1] REDEFINE GET OBJVEN[3] VAR VARNFE[3] ID 5 PICTURE "@!" OF FOLVEN:ADIALOGS[1] FONT FNORMAL REDEFINE COMBOBOX OBJVEN[14] VAR VARNFE[14] ID 27 ITEMS ARRITEM5 OF FOLVEN:ADIALOGS[1] REDEFINE GET OBJVEN[61] VAR PSQCID ID 43 PICTURE "@!" OF FOLVEN:ADIALOGS[1] FONT FNORMAL OBJVEN[61]:bPostKey :={|| PQSCID(VARNFE[14],OBJVEN[15],OBJVEN[61],@VARNFE[15]) } REDEFINE DBCOMBO OBJVEN[15] VAR VARNFE[15] ID 34 OF FOLVEN:ADIALOGS[1]; ALIAS "ARQMUN"; ITEMFIELD "NOME"; LISTFIELD "NOME" *DESTINATARIO/REMETENTE REDEFINE COMBOBOX OBJVEN[38] VAR VARNFE[38] ID 3 ITEMS ARRITEM6 OF FOLVEN:ADIALOGS[2] ON CHANGE (MASCARAEND(VARNFE[38],OBJVEN[39],@VARNFE[39])) IF VARNFE[38]="CNPJ" REDEFINE BTNGET OBJVEN[39] VAR VARNFE[39] ID 18 PICTURE "99.999.999/9999-99" OF FOLVEN:ADIALOGS[2] FONT FNORMAL VALID (PEGA_DADOS_DESTINATARIO(VARNFE[39],VARNFE,FOLVEN:ADIALOGS[2],@GRAVA_DESTINATARIO,OBJVEN[39]),FUNCLI(VARNFE[39],VARNFE,FOLVEN:ADIALOGS[2])) ACTION PESQCLI(FOLVEN:ADIALOGS[2],OBJVEN[39]) RESOURCE "PESQUISA" ELSE REDEFINE BTNGET OBJVEN[39] VAR VARNFE[39] ID 18 PICTURE "999.999.999-99" OF FOLVEN:ADIALOGS[2] FONT FNORMAL VALID (PEGA_DADOS_DESTINATARIO(VARNFE[39],VARNFE,FOLVEN:ADIALOGS[2],@GRAVA_DESTINATARIO,OBJVEN[39]),FUNCLI(VARNFE[39],VARNFE,FOLVEN:ADIALOGS[2])) ACTION PESQCLI(FOLVEN:ADIALOGS[2],OBJVEN[39]) RESOURCE "PESQUISA" ENDIF REDEFINE BTNGET OBJVEN[40] VAR VARNFE[40] ID 111 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL ACTION PESQCLI(FOLVEN:ADIALOGS[2],OBJVEN[39]) RESOURCE "PESQUISA" REDEFINE GET OBJVEN[41] VAR VARNFE[41] ID 5 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[67] VAR VARNFE[63] ID 36 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[42] VAR VARNFE[42] ID 6 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE COMBOBOX OBJVEN[66] VAR VARNFE[62] ID 33 ITEMS ARRITEM12 OF FOLVEN:ADIALOGS[2] REDEFINE GET OBJVEN[43] VAR VARNFE[43] ID 10 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[44] VAR VARNFE[44] ID 11 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[45] VAR VARNFE[45] ID 21 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[46] VAR VARNFE[46] ID 12 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[47] VAR VARNFE[47] ID 13 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE GET OBJVEN[48] VAR VARNFE[48] ID 14 PICTURE "99999-999" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE COMBOBOX OBJVEN[49] VAR VARNFE[49] ID 27 ITEMS ARRITEM5 OF FOLVEN:ADIALOGS[2] REDEFINE GET OBJVEN[62] VAR PSQCID ID 43 PICTURE "@!" OF FOLVEN:ADIALOGS[2] FONT FNORMAL OBJVEN[62]:bPostKey :={|| PQSCID(VARNFE[49],OBJVEN[50],OBJVEN[62],@VARNFE[50]) } REDEFINE DBCOMBO OBJVEN[50] VAR VARNFE[50] ID 31 ALIAS "ARQMUN" ITEMFIELD "NOME" LISTFIELD "NOME" OF FOLVEN:ADIALOGS[2] REDEFINE GET OBJVEN[51] VAR VARNFE[51] ID 32 PICTURE "(99)9999-9999" OF FOLVEN:ADIALOGS[2] FONT FNORMAL REDEFINE CHECKBOX OBJVEN[52] VAR VARNFE[52] ID 20 OF FOLVEN:ADIALOGS[2] REDEFINE CHECKBOX OBJVEN[16] VAR VARNFE[16] ID 16 OF FOLVEN:ADIALOGS[2] ON CHANGE (FOLVEN:ADIALOGS[2]:aEvalWhen(), OBJVEN[17]:REFRESH(), OBJVEN[19]:REFRESH(),OBJVEN[20]:REFRESH(),OBJVEN[21]:REFRESH(),OBJVEN[22]:REFRESH(),OBJVEN[23]:REFRESH(),OBJVEN[24]:REFRESH(),OBJVEN[25]:REFRESH()) REDEFINE COMBOBOX OBJVEN[17] VAR VARNFE[17] ID 7 ITEMS ARRITEM6 OF FOLVEN:ADIALOGS[2] ON CHANGE (MASCARAEND(VARNFE[17],OBJVEN[19],@VARNFE[19])) WHEN (VARNFE[16]) REDEFINE GET OBJVEN[19] VAR VARNFE[19] ID 22 PICTURE "@!" OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) FONT FNORMAL REDEFINE GET OBJVEN[20] VAR VARNFE[20] ID 24 PICTURE "@!" OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) FONT FNORMAL REDEFINE GET OBJVEN[21] VAR VARNFE[21] ID 25 PICTURE "@!" OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) FONT FNORMAL REDEFINE GET OBJVEN[22] VAR VARNFE[22] ID 26 PICTURE "@!" OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) FONT FNORMAL REDEFINE GET OBJVEN[23] VAR VARNFE[23] ID 28 PICTURE "@!" OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) FONT FNORMAL REDEFINE COMBOBOX OBJVEN[24] VAR VARNFE[24] ID 29 ITEMS ARRITEM5 OF FOLVEN:ADIALOGS[2] WHEN (VARNFE[16]) REDEFINE DBCOMBO OBJVEN[25] VAR VARNFE[25] ID 34 OF FOLVEN:ADIALOGS[2]; ALIAS "ARQMUN"; ITEMFIELD "NOME"; LISTFIELD "NOME" WHEN (VARNFE[16]) *//---transportador--------------------------------------- REDEFINE COMBOBOX OBJVEN[26] VAR VARNFE[26] ID 7 ITEMS ARRITEM7 OF FOLVEN:ADIALOGS[4] REDEFINE COMBOBOX OBJVEN[27] VAR VARNFE[27] ID 3 ITEMS ARRITEM6 OF FOLVEN:ADIALOGS[4] WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") VALID IIF(OPCAO="I",MASCARAEND(VARNFE[27],OBJVEN[28],@VARNFE[28]),.T.) ON CHANGE (MASCARAEND(VARNFE[27],OBJVEN[28],@VARNFE[28])) IF VARNFE[27]="CNPJ" REDEFINE BTNGET OBJVEN[28] VAR VARNFE[28] ID 26 PICTURE "99.999.999/9999-99" OF FOLVEN:ADIALOGS[4] FONT FNORMAL WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") VALID PEGA_DADOS_TRANSPORTADOR(VARNFE[28],VARNFE,FOLVEN:ADIALOGS[4],@GRAVA_MOTORISTA) ACTION IIF(VARNFE[26]="9 - Sem Frete",MSGINFO("Atenção, Altere a Modalidade do Frete","AVISO DE ALERTA"),PESQTRANS(FOLVEN:ADIALOGS[4],OBJVEN[28])) RESOURCE "PESQUISA" ELSE REDEFINE BTNGET OBJVEN[28] VAR VARNFE[28] ID 26 PICTURE "999.999.999-99" OF FOLVEN:ADIALOGS[4] FONT FNORMAL WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") VALID PEGA_DADOS_TRANSPORTADOR(VARNFE[28],VARNFE,FOLVEN:ADIALOGS[4],@GRAVA_MOTORISTA) ACTION IIF(VARNFE[26]="9 - Sem Frete",MSGINFO("Atenção, Altere a Modalidade do Frete","AVISO DE ALERTA"),PESQTRANS(FOLVEN:ADIALOGS[4],OBJVEN[28])) RESOURCE "PESQUISA" ENDIF REDEFINE BTNGET OBJVEN[29] VAR VARNFE[29] ID 2 PICTURE "@!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") ACTION IIF(VARNFE[26]="9 - Sem Frete",MSGINFO("Atenção, Altere a Modalidade do Frete","AVISO DE ALERTA"),PESQTRANS(FOLVEN:ADIALOGS[4],OBJVEN[28])) RESOURCE "PESQUISA" REDEFINE GET OBJVEN[30] VAR VARNFE[30] ID 5 PICTURE "999999999999999999!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") REDEFINE CHECKBOX OBJVEN[31] VAR VARNFE[31] ID 6 OF FOLVEN:ADIALOGS[4] WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") REDEFINE GET OBJVEN[32] VAR VARNFE[32] ID 11 PICTURE "@!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") REDEFINE COMBOBOX OBJVEN[33] VAR VARNFE[33] ID 8 ITEMS ARRITEM5 OF FOLVEN:ADIALOGS[4] WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") REDEFINE DBCOMBO OBJVEN[34] VAR VARNFE[34] ID 9 OF FOLVEN:ADIALOGS[4]; ALIAS "ARQMUN"; ITEMFIELD "NOME"; LISTFIELD "NOME" WHEN(OBOTAO[4]:LACTIVE.AND.VARNFE[26]<>"9 - Sem Frete") REDEFINE GET OBJVEN[60] VAR PSQCID ID 43 PICTURE "@!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL OBJVEN[60]:bPostKey :={|| PQSCID(VARNFE[33],OBJVEN[34],OBJVEN[60],@VARNFE[34]) } REDEFINE GET OBJVEN[35] VAR VARNFE[35] ID 14 PICTURE "@!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL REDEFINE COMBOBOX OBJVEN[36] VAR VARNFE[36] ID 16 ITEMS ARRITEM5 OF FOLVEN:ADIALOGS[4] REDEFINE GET OBJVEN[37] VAR VARNFE[37] ID 15 PICTURE "@!" OF FOLVEN:ADIALOGS[4] FONT FNORMAL *INFORMAÇÕES ADICIONAIS REDEFINE GET OBJVEN[53] VAR VARNFE[53] MEMO ID 18 OF FOLVEN:ADIALOGS[6] REDEFINE GET OBJVEN[54] VAR VARNFE[54] MEMO ID 19 OF FOLVEN:ADIALOGS[6] REDEFINE COMBOBOX OBJVEN[59] VAR INFORMACAONFE ID 20 ITEMS ARRITEM8 OF FOLVEN:ADIALOGS[6] *CARTA DE CORRECAO--------------------------------------------------------------------------------- SELE 21 DBSETORDER(1) REDEFINE LISTBOX OBRWVEN9 FIELDS STRZERO(ARQCARTA->ITEM,3),ARQCARTA->CORRECAO ID 11 Alias "ARQCARTA" ; HEADERS "ITEM","CORREÇÃO"; FieldSizes 50,500; COLOR BRANCO,BRANCO OF FOLVEN:ADIALOGS[6] UPDATE **--[ Colunas do ListBox ]--** OBRWVEN9:NCLRBACKHEAD := CORTABELA //GETSYSCOLOR(16) // COR DO FUNDO DO CABEÇALHO OBRWVEN9:nClrText :={ || PRETO } OBRWVEN9:nClrForeFocus :={ || BRANCO } OBRWVEN9:nClrBackFocus :={ || CINZA } // cor do fundo barra ativa OBRWVEN9:nClrNFBack :={ || IIF(ARQCARTA->(OrdKeyNo())%2==0,CINZA,CINZA)} // cor da barra ativa (DISABLE) OBRWVEN9:nClrNFFore :={ || PRETO } // cor da letra na barra ativa (DISABLE) OBRWVEN9:aHJustify :={2,0} OBRWVEN9:aJustify :={2,0} OBRWVEN9:nLineHeight :=22 OBRWVEN9:nLineStyle :=2 OBRWVEN9:nHeaderStyle :=2 OBRWVEN9:nHeaderHeight :=20 OBRWVEN9:blDblClick := {|| ((MANUTCARTA("A"),SAIDLG:=.F.),OBRWVEN9:REFRESH()) } OBRWVEN9:bKeyChar := {|nKey|if(nKey == 13,((MANUTCARTA("A"),SAIDLG:=.F.),OBRWVEN9:REFRESH()),)} OBRWVEN9:bFont := {|nRow,nCol,nStyleLine| pFonteBrowse( FOLVEN:ADIALOGS[6], OBRWVEN9, nRow, nCol, nStyleLine,FNORMAL,FNORMAL,FBOLD,IIF(OBRWVEN9:lFocused,FNORMAL,FNORMAL) ) } OBRWVEN9:REFRESH() *---------------------------------------------------------- *COBRANÇA REDEFINE GET OBJVEN[58] VAR VARNFE[58] ID 22 PICTURE "@!" OF FOLVEN:ADIALOGS[5] FONT FBOLD REDEFINE SAY OBJVEN[55] VAR VARNFE[55] ID 33 PICTURE "999999999.99" OF FOLVEN:ADIALOGS[5] FONT FBOLD REDEFINE SAY OBJVEN[56] VAR VARNFE[56] ID 35 PICTURE "999999999.99" OF FOLVEN:ADIALOGS[5] FONT FBOLD REDEFINE SAY OBJVEN[57] VAR VARNFE[57] ID 38 PICTURE "999999999.99" OF FOLVEN:ADIALOGS[5] FONT FBOLD *--------- botoes nfe referenciada REDEFINE SBUTTON OBTVEN4[1] PROMPT "&Incluir" ID 28 ; ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTNFERF("I",SAIDLG:=.F.,OBRWVEN2:REFRESH())),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); &&&COPIACFO(); &&&ABRIR_XML("C:\WFATURA\REMESSA\CFO\CFO.XML"); &&&(MANUTPRO("I"),SAIDLG:=.F.); TOOLTIP "Inclui Notas Fiscais Referênciadas" ; COLORS PRETO ; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[1] REDEFINE SBUTTON OBTVEN4[2] PROMPT "&Detalhar" ID 30 WHEN (!ARQNFERF->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTNFERF("A",SAIDLG:=.F.)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Exibir/Alterar Notas Fiscais Referênciadas" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[1] REDEFINE SBUTTON oBtVEN4[3] PROMPT "&Excluir" ID 32 WHEN (!ARQNFERF->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(IIF(MSGYESNO("Confirma a Exclusão das NF-e Referênciadas?","CONFIRMA"),APAGANFERF(FOLVEN:ADIALOGS[1],"1"),)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Excluir Notas Fiscais Referênciadas"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[1] *------------------------------------------------------------------------------------------- *--------- botoes volumes REDEFINE SBUTTON OBTVEN6[1] PROMPT "&Incluir" ID 28 WHEN OBOTAO[4]:LACTIVE; ACTION (MANUTVOL("I",SAIDLG:=.F.,OBRWVEN4:REFRESH())); &&&COPIACFO(); &&&ABRIR_XML("C:\WFATURA\REMESSA\CFO\CFO.XML"); &&&(MANUTPRO("I"),SAIDLG:=.F.); TOOLTIP "Inclui Volume" ; COLORS PRETO ; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[4] REDEFINE SBUTTON OBTVEN6[2] PROMPT "&Detalhar" ID 30 WHEN (!ARQVOL->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION (MANUTVOL("A",SAIDLG:=.F.)); TOOLTIP "Exibir/Alterar Volume" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[4] REDEFINE SBUTTON oBtVEN6[3] PROMPT "&Excluir" ID 32 WHEN (!ARQVOL->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION (IIF(MSGYESNO("Confirma a Exclusão do Volume?","CONFIRMA"),APAGAVOL(FOLVEN:ADIALOGS[4],"1"),)); TOOLTIP "Excluir Volume"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[4] *--------- botoes produtos REDEFINE SBUTTON OBTVEN8[1] PROMPT "&Incluir" ID 28 ; ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(MsgRun("Produtos e Serviços da NFe","Aguarde...Carregando Tela de Produtos e Serviços",{||MANUTNFEPRO("I")}),SAIDLG:=.F.,OBRWVEN4:REFRESH(),TOTALIZADOR(@WQUANT,@WUNIT,@WBASE,@WICMS,@WIPI,@WDESC,OBRWVEN6,OBRWVEN8,OBJVEN)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Inclui Produtos e Serviços" ; COLORS PRETO ; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[3] REDEFINE SBUTTON OBTVEN8[2] PROMPT "&Detalhar" ID 30 WHEN (!ARQNFEPRO->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(MsgRun("Produtos e Serviços da NFe","Aguarde...Carregando Tela de Produtos e Serviços",{||MANUTNFEPRO("A")}),SAIDLG:=.F.,OBRWVEN4:REFRESH(),TOTALIZADOR(@WQUANT,@WUNIT,@WBASE,@WICMS,@WIPI,@WDESC,OBRWVEN6,OBRWVEN8,OBJVEN)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Exibir/Alterar Produto e Serviços" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[3] REDEFINE SBUTTON oBtVEN8[3] PROMPT "&Excluir" ID 32 WHEN (!ARQNFEPRO->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(IIF(MSGYESNO("Confirma a Exclusão do Produto? ","CONFIRMA"),(APAGANFEPRO(FOLVEN:ADIALOGS[3],"1"),TOTALIZADOR(@WQUANT,@WUNIT,@WBASE,@WICMS,@WIPI,@WDESC,OBRWVEN6,OBRWVEN8,OBJVEN)),)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Excluir Produto e Serviços"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[3] *--------- botoes duplicatas REDEFINE SBUTTON OBTVEN10[1] PROMPT "&Incluir" ID 28 ; ACTION (MANUTDUP("I",SAIDLG:=.F.),ACUMULA_VALOR(@WTOTAL,@WDIFE),OBRWVEN8:REFRESH()); &&&COPIACFO(); &&&ABRIR_XML("C:\WFATURA\REMESSA\CFO\CFO.XML"); &&&(MANUTPRO("I"),SAIDLG:=.F.); TOOLTIP "Inclui Volume" ; COLORS PRETO ; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[5] REDEFINE SBUTTON OBTVEN10[2] PROMPT "&Detalhar" ID 30 WHEN (!ARQDUP->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(MANUTDUP("A",SAIDLG:=.F.),ACUMULA_VALOR(@WTOTAL,@WDIFE),OBRWVEN8:REFRESH()),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Exibir/Alterar Volume" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[5] REDEFINE SBUTTON oBtVEN10[3] PROMPT "&Excluir" ID 32 WHEN (!ARQDUP->(EOF()).AND.OBOTAO[4]:LACTIVE); ACTION IIF(OBOTAO[4]:LACTIVE=.T.,(IIF(MSGYESNO("Confirma a Exclusão da Duplicata?","CONFIRMA"),(APAGADUP(FOLVEN:ADIALOGS[6],"1"),ACUMULA_VALOR(@WTOTAL,@WDIFE),OBRWVEN8:REFRESH()),)),MSGINFO("Para efetuar esta operação, você tem que ester em modo de edição, Operação Não Autorizada","ATENÇÃO")); TOOLTIP "Excluir Volume"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[5] *--------- botoes carta de correção REDEFINE SBUTTON OBTVEN12[1] PROMPT "&Incluir" ID 28 ; ACTION (MANUTCARTA("I",SAIDLG:=.F.),OBRWVEN9:REFRESH()); &&&COPIACFO(); &&&ABRIR_XML("C:\WFATURA\REMESSA\CFO\CFO.XML"); &&&(MANUTPRO("I"),SAIDLG:=.F.); TOOLTIP "Inclui Carta de Correção" ; COLORS PRETO ; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[6] REDEFINE SBUTTON OBTVEN12[2] PROMPT "&Detalhar" ID 30 ; ACTION (MANUTCARTA("A",SAIDLG:=.F.),OBRWVEN9:REFRESH()); TOOLTIP "Exibir/Alterar Carta de Correção" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[6] REDEFINE SBUTTON oBtVEN12[3] PROMPT "&Excluir" ID 32; ACTION (IIF(MSGYESNO("Confirma a Exclusão da Carta de Correção?","CONFIRMA"),(APAGACARTA(FOLVEN:ADIALOGS[5],"1"),OBRWVEN9:REFRESH()),)); TOOLTIP "Excluir Carta de Correção"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[6] REDEFINE SBUTTON oBtVEN12[4] PROMPT "&Imprimir" ID 13; ACTION (CARTA(),ARQCARTA->(DBGOTOP()),OBRWVEN9:REFRESH()); TOOLTIP "Imprimir Carta de Correção"; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[6] *----------botões venda REDEFINE SBUTTON OBTVEN3[13] ID 21 ; Action ( GRAVA_INFORMA(VARNFE,INFORMACAONFE,OBJVEN),INFORMACAONFE:="",OBJVEN[55]:REFRESH()); TOOLTIP "Adicionar Mensagem nas Informações Adicionais do Contribuinte" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF FOLVEN:ADIALOGS[6] *----------------------------------------------------------------------------------------------- REDEFINE SBUTTON OBOTAO[4] ID 17 ; //salvar ACTION DLGVEN2:SETFOCUS(),GRAVANFE(@OPCAO,OBJVEN,@GRAVA_MOTORISTA,@GRAVA_DESTINATARIO,VARNFE,FOLVEN:NOPTION); COLORS PRETO,BRANCO ; TEXT POSITION ON_RIGHT XP OF DLGVEN2 REDEFINE SBUTTON OBOTAO[5] ID 37 ; //cancelar ACTION CANCELAGET_VENDA(DLGVEN2,OPCAO,OBJVEN,FOLVEN:NOPTION),OBOTAO[3]:SETFOCUS(); COLORS PRETO,BRANCO ; TEXT POSITION ON_RIGHT XP OF DLGVEN2 ******************************************************************* REDEFINE SBUTTON OBOTAO[3] ID 26; ///prompt "Editar/Alterar" FILE "IMAGE\EDITAR.BMP"; //editar ACTION IIF(OBOTAO[4]:LACTIVE=.F..AND.OPCAO<>"I",(ATIVAGET_VENDA(OBJVEN,68,FOLVEN:NOPTION),GRAVA_CAR(),GRAVA_DUP(),GRAVA_REF(),GRAVA_VOL(),GRAVA_PRO()),MSGINFO("Você esta processo de Digitação, Operação Não Autorizada","ATENÇÃO")); CANCEL COLORS Btn_Frente, Btn_Fundo; XP OF DLGVEN2 REDEFINE SBUTTON OBOTAO[6] ID 13 RESOURCE "POSITIVO"; //validar ACTION (VALIDAR30(VARNFE,ARQNFE->SERIE,ARQNFE->NOTA,.T.,.T.),VOLTASCOPE(),OBOTAO[6]:REFRESH()); COLORS PRETO,BRANCO ; XP TEXT POSITION ON_RIGHT OF DLGVEN2 WHEN (OBOTAO[4]:LACTIVE=.F..and.ARQNFE->VALIDADO=="N".AND.EDITARNFE==.F..AND.OPCAO<>"I") REDEFINE SBUTTON OBOTAO[7] ID 29; /// prompt "Visualizar" FILE "Image\consultae.bmp"; ACTION IIF(OBOTAO[4]:LACTIVE=.F..AND.OPCAO<>"I",(PREDANFE("V"),OBRWVEN4:REFRESH(),OBRWVEN6:REFRESH(),OBRWVEN2:REFRESH(),OBRWVEN8:REFRESH()),MSGINFO("Você esta processo de Digitação, Operação Não Autorizada","ATENÇÃO")); CANCEL COLORS Btn_Frente, Btn_Fundo; XP TEXT POSITION ON_RIGHT OF DLGVEN2 REDEFINE SBUTTON OBOTAO[8] ID 19 RESOURCE "DANFE"; /// prompt "Relatórios" FILE "Image\impressora.bmp"; MENU ACTION IIF(OBOTAO[4]:LACTIVE=.F..AND.OPCAO<>"I",MenuPop3(OBOTAO[8]),MSGINFO("Você esta processo de Digitação, Operação Não Autorizada","ATENÇÃO")); CANCEL COLORS Btn_Frente, Btn_Fundo; XP TEXT POSITION ON_RIGHT OF DLGVEN2 REDEFINE SBUTTON OBOTAO[9] ID 18; ACTION IIF(OBOTAO[4]:LACTIVE=.F..AND.OPCAO<>"I",(SAIDLG:=.T.,DLGVEN2:END(),SetKey( VK_F7, NIL )),MSGINFO("Você esta processo de Digitação, Operação Não Autorizada","ATENÇÃO")); ////),(APAGANFERF(FOLVEN:ADIALOGS[1],"2"),APAGANFEPRO(FOLVEN:ADIALOGS[3],"2"),APAGAVOL(FOLVEN:ADIALOGS[4],"2"),APAGADUP(FOLVEN:ADIALOGS[6],"2"),SAIDLG:=.T.,DLGVEN2:END())); CANCEL COLORS Btn_Frente, Btn_Fundo; XP TEXT POSITION ON_RIGHT OF dlgven2 *----------------------------------------------------------------------------------------------- ACTIVATE DIALOG DLGVEN2 CENTERED VALID SAIDLG ; ON INIT IIF( OPCAO<>"I", (BuildtaBVEN( DLGVEN2,OPCAO),DESABILITAOBJ(OBJVEN,68),OBOTAO[4]:DISABLE(),OBOTAO[5]:DISABLE(),OBOTAO[4]:REFRESH(),OBOTAO[5]:REFRESH(),OBTVEN4[1]:DISABLE(),OBTVEN6[1]:DISABLE(),OBTVEN8[1]:DISABLE(),OBTVEN10[1]:DISABLE()),; (BuildtaBVEN( DLGVEN2,OPCAO),ATIVAOBJ(OBJVEN,68),OBOTAO[4]:ENABLE(),OBOTAO[5]:ENABLE(),OBOTAO[4]:REFRESH(),OBOTAO[5]:REFRESH()) )
  2. Alain da Silva
    Boa tarde, minhas telas demoram muito para serem mostradas. Meu computador não é la grandes coisas mas acho que esta demorando muito. Será um erro de lógica, programação. A primeira parte que mostrar o Browse com as opção de inclusão,alteração... mostra normal. Se entro em alteração que chama essa função MANUTFOR é que demora os 10 seg. FUNCTION MANUTFOR(OPCAO) STATIC ICONDICAO:=.F. LOCAL ODLGFORMANUT,FOLCLI,OBAR LOCAL OBTNB:=ARRAY(6),OBJFOR:=ARRAY(23),PSQCID:=SPACE(40) LOCAL ARRITEM:={"AC","AL","AP","AM","BA","CE","DF","ES","GO","MT","MS","MA","MG",; "PA","PB","PR","PE","PI","RJ","RS","RN","RO","RR","SC","SP","SE","TO"} LOCAL ARRITEM3:={"SIM","NÃO"} LOCAL ARRITEM2:={"CNPJ","CPF"} LOCAL ARRITEM5:={"HABILITADO","NÃO HABILITADO"} LOCAL ARRITEM6:={"SIM","NÃO"} MEMVAR VARFOR LINHA:=18 SELE 43 DBSETORDER(2) SELE 44 DBSETORDER(2) SELE 24 ************* VARIAVEIS IF OPCAO="I" // 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 VARFOR:={0,"CNPJ",space(18),SPACE(100),SPACE(50),SPACE(18),SPACE(100),space(10),space(40),SPACE(50),SPACE(9),"BRASIL",space(2),SPACE(40),SPACE(15),SPACE(25),SPACE(100),SPACE(10),SPACE(15),SPACE(3),SPACE(30),SPACE(10),SPACE(20)} SELE 24 DBSETORDER(1) GO BOTT VARFOR[1]=CODIGO+1 &&20&& ELSE // 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 VARFOR:={CODIGO,TIPO,CGCCLI,RAZAO,FANTASIA,INSCEST,ENDERECO,NUMERO,COMPLTO,BAIRRO,CEPCLI,"BRASIL",ESTADO,CIDADE,TELEFONE,CONTATO,EMAIL,CONTABIL,FAX,BANCO,NBANCO,AGENCIA,CONTA} ENDIF XREC:=ARQFOR->(RECNO()) *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG ODLGFORMANUT RESOURCE "MANUTFOR1" COLOR PRETO,CINZACL; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL ODLGFORMANUT : LHELPICON := .F. // TIRA A ? DA JANELA ODLGFORMANUT: bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------------------------- REDEFINE Group Id 21 OF ODLGFORMANUT FONT FNORMAL; Color AZUL TRANSPARENT REDEFINE Group Id 22 OF ODLGFORMANUT FONT FNORMAL; Color AZUL TRANSPARENT *------- identificação REDEFINE SAY ID -2 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -3 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -4 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -5 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -6 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -8 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -9 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -10 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -11 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -12 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -13 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -14 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -15 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -16 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -17 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -18 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID -19 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 39 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 44 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 23 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 31 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 33 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 35 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SAY ID 37 FONT FNORMAL OF ODLGFORMANUT COLOR PRETO,CINZACL REDEFINE SBUTTON OBTNB[5] ID 50; Action MsgRun("Iniciando consulta","Aguarde...",{||Consulta2( VARFOR, ODLGFORMANUT,OBJFOR[3],OBJFOR[4] ),XSETFOCUS(objfor[3])}); TOOLTIP "Importa Dados Oficiais do www.Sintegra.gov.br" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT WHEN OPCAO=="I" REDEFINE SBUTTON OBTNB[6] ID 47 ; Action testwebmapfw(ALLTRIM(VARFOR[7])+" "+ALLTRIM(VARFOR[8]),ALLTRIM(VARFOR[14]),"BRASIL"); TOOLTIP "Mostra Mapa no Google Maps" ; COLORS PRETO; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT REDEFINE SAY OBJFOR[1] VAR ALLTRIM(STR(VARFOR[1],14)) ID 24 FONT FEXPAND OF ODLGFORMANUT COLOR PRETO REDEFINE COMBOBOX OBJFOR[2] VAR VARFOR[2] ID 3 ITEMS ARRITEM2 OF ODLGFORMANUT ON CHANGE (MASCARAEND(VARFOR[2],OBJFOR[3],@VARFOR[3])) VALID IIF(OPCAO="I",MASCARAEND(VARFOR[2],OBJFOR[3],@VARFOR[3]),.T.) IF VARFOR[2]="CNPJ" REDEFINE GET OBJFOR[3] VAR VARFOR[3] ID 4 PICTURE "99.999.999/9999-99" OF ODLGFORMANUT FONT FNORMAL VALID PESQCPFCNPJ(VARFOR[3],"24","4","ARQFOR",OBJFOR[3],XREC,OPCAO) ELSE REDEFINE GET OBJFOR[3] VAR VARFOR[3] ID 4 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL VALID PESQCPFCNPJ(VARFOR[3],"24","4","ARQFOR",OBJFOR[3],XREC,OPCAO) ENDIF REDEFINE GET OBJFOR[4] VAR VARFOR[4] ID 111 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL UPDATE REDEFINE GET OBJFOR[5] VAR VARFOR[5] ID 2 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL UPDATE REDEFINE GET OBJFOR[18] VAR VARFOR[18] ID 40 PICTURE "9999999999" OF ODLGFORMANUT FONT FNORMAL UPDATE REDEFINE GET OBJFOR[6] VAR VARFOR[6] ID 5 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL *------- ENDEREÇO REDEFINE GET OBJFOR[7] VAR VARFOR[7] ID 10 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[8] VAR VARFOR[8] ID 11 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[9] VAR VARFOR[9] ID 12 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[10] VAR VARFOR[10] ID 13 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[11] VAR VARFOR[11] ID 14 PICTURE "99999-999" OF ODLGFORMANUT FONT FNORMAL REDEFINE DBCOMBO OBJFOR[12] VAR VARFOR[12] ID 15 ALIAS "ARQPAIS" ITEMFIELD "DESCRICAO" LISTFIELD "DESCRICAO" OF ODLGFORMANUT REDEFINE COMBOBOX OBJFOR[13] VAR VARFOR[13] ID 16 ITEMS ARRITEM OF ODLGFORMANUT REDEFINE DBCOMBO OBJFOR[14] VAR VARFOR[14] ID 17 ALIAS "ARQMUN" ITEMFIELD "NOME" LISTFIELD "NOME" OF ODLGFORMANUT REDEFINE GET OBJFOR[20] VAR PSQCID ID 43 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL OBJFOR[20]:bPostKey :={|| PQSCID(VARFOR[13],OBJFOR[14],OBJFOR[20],@VARFOR[14]) } REDEFINE GET OBJFOR[16] VAR VARFOR[16] ID 19 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[17] VAR VARFOR[17] ID 20 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[15] VAR VARFOR[15] ID 18 PICTURE "(99)9999-9999" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[19] VAR VARFOR[19] ID 27 PICTURE "(99)9999-9999" OF ODLGFORMANUT FONT FNORMAL *------- COBRANÇA REDEFINE GET OBJFOR[20] VAR VARFOR[20] ID 32 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[21] VAR VARFOR[21] ID 34 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[22] VAR VARFOR[22] ID 36 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL REDEFINE GET OBJFOR[23] VAR VARFOR[23] ID 38 PICTURE "@!" OF ODLGFORMANUT FONT FNORMAL *-----------BOTÔES------------------------------------------------------------------------------ REDEFINE SBUTTON OBTNB[3] ID 28 ; ACTION (ATIVAOBJ(OBJFOR,23),ICONDICAO:=.T.,OBTNB[1]:REFRESH(),OBTNB[3]:REFRESH(),OBTNB[4]:REFRESH(),XSETFOCUS(OBJFOR[4])); COLORS PRETO; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT WHEN (ICONDICAO==.F.) REDEFINE SBUTTON OBTNB[1] ID 29 ; ACTION(IIF(GRAVAFOR(@OPCAO,OBJFOR,@XREC),(DESABILITAOBJ(OBJFOR,23),ICONDICAO:=.F.,OBTNB[3]:REFRESH(),OBTNB[1]:REFRESH(),OBTNB[4]:REFRESH()),ICONDICAO:=.T.)); COLORS PRETO,BRANCO ; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT WHEN (ICONDICAO==.T.) REDEFINE SBUTTON OBTNB[4] ID 25 ; ACTION (IIF(MSGYESNO("Confirma a Exclusão do Cliente","CONFIRMA"),(APAGAFOR(ODLGFORMANUT),SAIDLG:=.T.,ODLGFORMANUT:END()),),); COLORS PRETO; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT WHEN (ICONDICAO==.F.) REDEFINE SBUTTON OBTNB[2] ID 26 ; ACTION(SAIDLG:=.T.,ODLGFORMANUT:END()); COLORS PRETO,BRANCO; TEXT POSITION ON_RIGHT XP OF ODLGFORMANUT OBTNB[2]:LCANCEL:=.T. *----------------------------------------------------------------------------------------------- IF OPCAO<>"I" ICONDICAO:=.F. DESABILITAOBJ(OBJFOR,23) ELSE ICONDICAO:=.T. ATIVAOBJ(OBJFOR,23) ENDIF *----------------------------------------------------------------------------------------------- SAIDLG:=.F. ACTIVATE DIALOG ODLGFORMANUT VALID SAIDLG CENTERED For n = 1 To Len(ODLGFORMANUT:aControls) ODLGFORMANUT:aControls[n]:END() Next n RETURN NIL *---------------GRAVAR FUNCTION GRAVAFOR(OPCAO,OBJFOR,XREC) IF (VARFOR[3]=" ".OR.VARFOR[4]=" ".OR.VARFOR[8]=" ".OR.VARFOR[11]=" ") MsgInfo("(*) Campo de Preenchimento Obrigatório","AVISO DE ALERTA") ICONDICAO:=.T. RETURN(.F.) ENDIF SELE 24 IF OPCAO="I" DBSETORDER(4) DBSEEK(VARFOR[3]) IF ARQFOR->(!EOF()) MSGINFO("Atenção, Fornecedor ja Cadastrado, Operação Cancelada!!!") RETURN(.F.) ENDIF ENDIF IF OPCAO="A".OR.OPCAO="I" IF (OPCAO=="A") DO WHILE !RLOCK() ENDDO ELSEIF (OPCAO=="I") DO INCREG2 ENDIF REPL CODIGO WITH VARFOR[1],TIPO WITH VARFOR[2],CGCCLI WITH VARFOR[3] REPL RAZAO WITH VARFOR[4],FANTASIA WITH VARFOR[5],CONTABIL WITH VARFOR[18],INSCEST WITH VARFOR[6] REPL ENDERECO WITH VARFOR[7],NUMERO WITH VARFOR[8],COMPLTO WITH VARFOR[9],BAIRRO WITH VARFOR[10] REPL CEPCLI WITH VARFOR[11],PAIS WITH VARFOR[12],ESTADO WITH VARFOR[13],CIDADE WITH VARFOR[14] REPL TELEFONE WITH VARFOR[15],CONTATO WITH VARFOR[16],EMAIL WITH VARFOR[17], FAX WITH VARFOR[19] REPL BANCO WITH VARFOR[20], NBANCO WITH VARFOR[21], AGENCIA WITH VARFOR[22],CONTA WITH VARFOR[23] UNLOCK DBCOMMIT() IF OPCAO="I" XREC:=ARQFOR->(RECNO()) OPCAO:="A" SAIDLG:=.T. ELSE DESABILITAOBJ(OBJFOR,23) ENDIF ENDIF return(.T.) FUNCTION APAGAFOR(ODLGFORMANUT) DO WHILE !RLOCK() ENDDO DBDELETE() UNLOCK DBCOMMIT() OBRWFOR:REFRESH() OBRWFOR:GOTOP() RETURN(.T.) Function Consulta2( AVAR, Dlg, OOBJ3,OOBJ ) Local aRetorno,oSintegra,nIndice:="SP",SAIDLG:=.F.,OBTN,oSAY,n LOCAL aOpcoes:={"AC","AL","AP","AM","BA","CE","DF","ES","GO","MT","MS","MA","MG",; "PA","PB","PR","PE","PI","RJ","RS","RN","RO","RR","SC","SP","SE","TO"} Define Dialog oDlg From 0,0 To 200,300 Pixel Title "[ SiNtEgRa - Fazendo Consulta ]" Style WS_CAPTION oDlg:lHelpIcon:=.F. @ 01,01 SAY oSAY VAR "Informe a UF para Consulta" Of oDLg Size 200,40 @ 01,10 COMBOBOX oCombo VAR nIndice ITEMS aOpcoes OF oDLG SIZE 20,100 @ 60,10 Button "Ok" Size 40,10 Pixel Action (SAIDLG:=.T.,oDLG:END(),CONSULTASINTEGRA3(nIndice, AVAR, Dlg, OOBJ3,OOBJ)) @ 60,70 Button "Cancelar" Size 40,10 Pixel Action (SAIDLG:=.T.,oDLG:END()) Activate Dialog oDlg Centered VALID SAIDLG Return Nil //---------------------------------------------------------------------------// FUNCTION CONSULTASINTEGRA3(nIndice,AVAR, Dlg, OOBJ3,OOBJ ) oSintegra := Sintegra():New(nIndice) aRetorno := oSintegra:Consulta() If Len(aRetorno) > 0 AVAR[2] :="CNPJ" //TIPO OOBJ3:cPicture:="99.999.999/9999-99" OOBJ3:REFRESH() OOBJ3:CPICTURE:="99.999.999/9999-99" OOBJ3:OGET:PICTURE:="99.999.999/9999-99" OOBJ3:Refresh() For n = 1 To Len(Dlg:aControls) Dlg:aControls[n]:Refresh() Next n XSETFOCUS(OOBJ) AVAR[2] :="CNPJ" //TIPO AVAR[4] :=ARETORNO[3]+SPACE(100) //RAZAO AVAR[3] :=SUBS(ARETORNO[1],1,2)+"."+SUBS(ARETORNO[1],3,3)+"."+SUBS(ARETORNO[1],6,3)+"/"+SUBS(ARETORNO[1],9,4)+"-"+SUBS(ARETORNO[1],13,2) //CGCCLI avar[6] :=aretorno[2] //INSCEST avar[7] :=aretorno[4]+" "+aretorno[5]+space(100) //ENDEREÇO avar[8] :=aretorno[6]+SPACE(10) //NUMERO avar[9]:=aretorno[7]+SPACE(30) //COMPTO avar[10]:=aretorno[8]+SPACE(50) //BAIRRO avar[11]:=SUBS(aretorno[11],1,5)+"-"+SUBS(ARETORNO[11],6,3)+SPACE(50) //CEPCLI avar[13]:=aretorno[10] //ESTADO avar[14]:=aretorno[9] //CIDADE For n = 1 To Len(Dlg:aControls) Dlg:aControls[n]:Refresh() Next n EndIf XSETFOCUS(OOBJ) RETURN NIL
  3. Alain da Silva
    https://www.fazenda.sp.gov.br/nfe/
  4. Alain da Silva
    qual o contato do gilmer?
  5. Alain da Silva
    Obrigado Everton, alguem ja desenvolveu alguma coisa nesse sentido que esteja disposto a negociar?
  6. Alain da Silva
    bom dia pessoal acabei de ver no site da receita: O que os amigos sugerem?
  7. Alain da Silva
    everton, é praticamente o código que postei. Nesse eu coloquei mais dois botões, sair e transportar a data.
  8. Alain da Silva
    #Include "FiveWin.Ch" #Include "Obj2Hb.Ch" Function Calend(ODT,OOBJ) Local oFont, oFont2, oFonte, oFont3 Local oDlg, nVar2, oPrueba1 Local oPrueba, oBtn[ 10], oCombo[ 2 ] Local nVar1 := nVar2 := 1 Local aLenguajes := { " Portugues ", ; " Catalao ", ; " Euskera ", ; " Galego ", ; " Espanhol ", ; " Italiano ", ; " Ingles ", ; " Frances ", ; " Alemao " } Local aCombinacion:={ " Cores 1" , ; " Cores 2" , ; " Cores 3" , ; " Cores 4" , ; " Cores 5" , ; " Cores 6" } Local aTit_Color := aComboTitulo() Local aCue_Color := aComboCuerpo() Local aDom_Color := aComboDomingo() LOCAL aClrFestivo := { rgb( 255, 255, 255),; //Color borde superior rgb( 255, 255, 0),; //Color relleno rgb( 180, 180, 0),; //Color borde inferior rgb( 0, 0, 0) } //color texto.... LOCAL aColorCuerpo := {rgb( 154, 242, 250),; //Color borde superior rgb( 11, 196, 210),; //Color relleno rgb( 9, 138, 149),; //Color borde inferior rgb( 0, 0, 0),; //color texto.... Rgb( 9, 138, 149) } //color al perder el foco... Local aColorTitulo := {Rgb( 10, 165, 177),; // Color Borde superior Rgb( 0, 128, 128),; // Color de Relleno Rgb( 5, 82, 88),; // Color Borde inferior rgb( 205, 205, 155),; // Color Letra mes y año Rgb( 205, 205, 155) } // Color de los dias. Local aColorBoton := {Rgb( 10, 165, 177),; // Color Borde superior Rgb( 0, 128, 128),; // Color de Relleno Rgb( 5, 82, 88),; // Color Borde inferior rgb( 205, 205, 155),; // Color Letra mes y año Rgb( 205, 205, 155) } // Color de los dias. SET _3DLOOK ON // Se activa el archivo de recursos a utilizar. DEFINE FONT oFont NAME "Arial" SIZE 0,-14 DEFINE FONT oFont3 NAME "Ms Sans Serif" SIZE 0,-13 //set date french SET DATE BRIT DEFINE DIALOG oDlg TITLE "Calendario ; FROM 10,10 TO 360, 280 PIXEL COLOR "N/W" ; STYLE nOR( DS_MODALFRAME ) oDlg:nStyle := nOr( oDlg:nStyle, 4 ) oDlg:lHelpIcon := .F. oPrueba1:= TMiCalendario(): New ( 5, 5, 120, 120, oDlg, oFont) //oPrueba1:bLButtonUp := {|| Msginfo("Prova do Bloco bLButtonUp")} // Para pintar los domingos de otro color... oPrueba1:FijaClrDomingo( {rgb( 255, 255, 255),; //Color borde superior rgb( 220, 220, 220),; //Color relleno rgb( 128, 128, 128),; //Color borde inferior rgb( 0, 0, 0) } ) //color texto.... // Aqui tem um Erro, Que NÆo Consegui Descobrir. // Para pintar los dias festivos.. oPrueba1:aFestivos[ 1] := {} //Festivos de Enero oPrueba1:aFestivos[ 2] := {} //Festivos de Ferbrero oPrueba1:aFestivos[ 3] := {} //Festivos de Marzo oPrueba1:aFestivos[ 4] := {} //Festivos de Abril oPrueba1:aFestivos[ 5] := {} //Festivos de Mayo oPrueba1:aFestivos[ 6] := {} //Festivos de Junio oPrueba1:aFestivos[ 7] := {} //Festivos de Julio oPrueba1:aFestivos[ 8] := {} //Festivos de Agosto oPrueba1:aFestivos[ 9] := {07} //Festivos de Septiembre oPrueba1:aFestivos[10] := {12} //Festivos de Octubre oPrueba1:aFestivos[11] := {2,15} //Festivos de Noviembre oPrueba1:aFestivos[12] := {25} //Festivos de Diciembre oPrueba1:aColorFestivo := aClrFestivo oPrueba1:FijaClrFestivo() // Al cambiar de mes... se asignan nuevos festivos... // Este es un metodo alternativo de marcar los festivos.. oPrueba1:bCambioMes := { || FijarFestivos( oPrueba1 ) } @ 5,140 COMBOBOX oCombo[ 1 ] VAR nVar1 ; ITEMS aLenguajes OF oDlg ; SIZE 50,150 ; FONT oFont3 ; PIXEL ; ON CHANGE ( oPrueba1:nLanguage := nVar1, ; oPrueba1:Language(), ; oPrueba1:Paint() ) @ 20,140 COMBOBOX oCombo[ 1 ] VAR nVar2 ; ITEMS aCombinacion OF oDlg ; SIZE 50,150 ; FONT oFont3 ; PIXEL ; ON CHANGE ( oPrueba1:aColorTitulo := aTit_Color[ nVar2], ; oPrueba1:aColorCuerpo := aCue_Color[ nVar2], ; oPrueba1:aColorBoton := aTit_Color[ nVar2], ; oPrueba1:FijaClrDomingo( aDom_Color[ nVar2]), ; oPrueba1:RestaurarColor(), ; oPrueba1:Paint() ) @ 35,140 BUTTON oBtn[ 1] PROMPT "Provar/Teste" ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION( MsgInfo( oPrueba1:aFecha[2], ; "Data Selecionada Pelo Usuario" ) ) @ 50,140 BUTTON oBtn[ 2] PROMPT "31/12/2008 " ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION oPrueba1:IrFecha( CtoD("31/12/2008") ) @ 65,140 BUTTON oBtn[ 3] PROMPT "Hoje " ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION oPrueba1:IrFecha( Date() ) @ 80,140 BUTTON oBtn[ 4] PROMPT "Ingles " ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION ( oPrueba1:nLanguage := 7, ; oPrueba1:Language(), ; oPrueba1:Paint() ) @ 95,140 BUTTON oBtn[ 5] PROMPT "Espanhol " ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION ( oPrueba1:nLanguage := 5, ; oPrueba1:Language(), ; oPrueba1:Paint() ) @ 110,140 BUTTON oBtn[ 6] PROMPT "Nova Cor " ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION ( oPrueba1:aColorCuerpo := aColorCuerpo, ; oPrueba1:aColorTitulo := aColorTitulo, ; oPrueba1:aColorBoton := aColorBoton , ; oPrueba1:RestaurarColor(), ; oPrueba1:Paint() ) @ 125,140 BUTTON oBtn[ 7] PROMPT "Pintar Dia 15" ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION ( oPrueba1:ColorDia( 15, aClrFestivo ), ; oPrueba1:Paint() ) @ 145,60 BUTTON oBtn[ 9] PROMPT "&Transportar" ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION( escolher(@odt,oobj,CTOD(STRZERO(oPrueba1:NDIAMES,2)+"/"+STRZERO(oPrueba1:NMesNumero,2)+"/"+oPrueba1:CANO)),oDlg:End() ) CANCEL oBtn[ 9]:cToolTip := "Sai e Escolhe a Data" @ 145,5 BUTTON oBtn[ 8] PROMPT "&Sair" ; OF oDlg PIXEL SIZE 50,12 ; FONT oFont ; ACTION( oDlg:End() ) CANCEL oBtn[ 8]:cToolTip := "Sair do Calendário" ACTIVATE DIALOG oDlg CENTERED // Se sacan los recursos de memoria. RELEASE FONT oFont RELEASE FONT oFont3 Return .t. function escolher(odt,oobj,XDT) ODT:=XDT IF !EMPTY(OOBJ) OOBJ:REFRESH() ENDIF return .t. // Esta funcion es una alternativa al pintado de los festivos.. STATIC FUNCTION FijarFestivos( oCalendario ) LOCAL aClrFestivo := { rgb( 177, 218, 173),; //Color borde superior rgb( 121, 192, 114),; //Color relleno rgb( 70, 141, 50),; //Color borde inferior rgb( 0, 0, 0) } //color texto.... DO CASE CASE oCalendario:nMesNumero == 1 oCalendario:ColorDia( 1, aClrFestivo ) CASE oCalendario:nMesNumero == 2 CASE oCalendario:nMesNumero == 3 CASE oCalendario:nMesNumero == 4 oCalendario:ColorDia(18, aClrFestivo ) oCalendario:ColorDia(19, aClrFestivo ) CASE oCalendario:nMesNumero == 5 oCalendario:ColorDia( 1, aClrFestivo ) oCalendario:ColorDia(21, aClrFestivo ) CASE oCalendario:nMesNumero == 6 oCalendario:ColorDia(16, aClrFestivo ) CASE oCalendario:nMesNumero == 7 CASE oCalendario:nMesNumero == 8 oCalendario:ColorDia(15, aClrFestivo ) CASE oCalendario:nMesNumero == 9 oCalendario:ColorDia(18, aClrFestivo ) oCalendario:ColorDia(19, aClrFestivo ) CASE oCalendario:nMesNumero == 10 CASE oCalendario:nMesNumero == 11 oCalendario:ColorDia( 1, aClrFestivo ) CASE oCalendario:nMesNumero == 12 oCalendario:ColorDia(25, aClrFestivo ) ENDCASE RETURN NIL STATIC FUNCTION aComboTitulo() Local aDeColores aDeColores :={ {rgb(170,170, 80), rgb(130,130, 65),rgb(100,100, 50), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) }, ; {rgb( 55,170,170), rgb( 40,120,120),rgb( 40,110,110), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) }, ; {rgb( 60,160, 60), rgb( 50,125, 50),rgb( 40,110, 40), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) }, ; {rgb(190, 60,190), rgb(150, 50,150),rgb(110, 40,110), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) }, ; {rgb(190, 63, 63), rgb(150, 50, 50),rgb(110, 40, 40), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) }, ; {rgb(125,125,125), rgb(100,100,100),rgb( 75, 75, 75), ; rgb( 205, 205, 155), Rgb( 205, 205, 155) } } RETURN aDeColores STATIC FUNCTION aComboCuerpo() Local aDeColores aDeColores :={ {rgb(235,235,210), rgb(205,205,155),rgb(150,150, 75), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(205,240,240), rgb(145,220,220),rgb( 55,170,170), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(205,240,205), rgb(175,210,175),rgb( 55,170, 55), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(240,205,240), rgb(220,145,220),rgb(170, 55,170), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(240,205,205), rgb(230,180,180),rgb(210,120,120), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(220,220,220), rgb(180,180,180),rgb(110,110,110), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) } } RETURN aDeColores STATIC FUNCTION aComboDomingo() Local aDeColores aDeColores :={ {rgb(255,255,255), rgb(220,220,220),rgb(128,128,128), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(255,255,255), rgb(203,238,238),rgb( 65,192,192), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(255,255,255), rgb(203,238,203),rgb( 65,192, 65), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(255,255,255), rgb(238,203,238),rgb(192, 65,192), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(255,255,255), rgb(238,203,203),rgb(192, 65, 65), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) }, ; {rgb(255,255,255), rgb(220,220,220),rgb(128,128,128), ; rgb( 0, 0, 0), Rgb( 130, 130, 65) } } RETURN aDeColores // Datos que devuelve el calendario.
  9. Alain da Silva
    vou testar em outra máquina pra ver. ja testei no terra e dá o mesmo erro. mas valeu. abs
  10. Alain da Silva
    Obrigado pela resposta João, pois é, funcionava normal. Será que é em função do windows XP. Até o outlook não esta funcionando, apenas recebendo mensagens no outlook. Como falei, meu provedor é o uol, se eu entro pelo Webmail normal. att alain
  11. Alain da Silva
    bom dia pessoal, de segunda pra ca não estou conseguindo enviar mais email, alguem sabe se mudou alguma configuração. detalhe uso windows xp. Uso o provedor uol mas não estou conseguindo também com o terra. *************************************************************** * Enviando emails * * * * Desenvolvedor: Ricardo de Moura Marques * * email: ricardomouramarques@hotmail.com * * * * Agradecimentos ao Alessandro Seribeli Barreto - "Ale SB" * * pelo código inicial, sem o qual, esse projeto * * não seria possível * * * *************************************************************** #include "fivewin.ch" Static cAttach := "" Static aAttach := {} ******************************************************************************** Function testmail(cDest,cCC,CTXT,cAnexo,cPass,cAssunto,cNfe,cTTP) local cUser := Space(50), cRemt := Space(50), ; cTime, cList:=Space(100),nItem:=0,; cCCO := "valpanemaserraria@uol.com.br" local oDlg, oGet[8], oSay[12], oBtn[2] local cDados, i Private oCab, oGru, oCon, oCod, oMenu, lSair := .f., oM2, lCheck := .t. Private aServs := { {"@hotmail.com", "smtp.live.com", 25, .t. },; {"@yahoo.com.br", "smtp.mail.yahoo.com.br", 25, .f. },; {"@gmail.com", "smtp.gmail.com", 465, .t. },; {"@uol.com.br", "smtps.uol.com.br", 465, .t. },; {"@bol.com.br", "smtp.bol.com.br", 25, .f. },; {"@terra.com.br", "smtp.terra.com.br", 25, .f. },; {"@ig.com.br", "smtp.ig.com.br", 465, .t. },; {"@ibest.com.br", "smtp.ibest.com.br", 465, .t. },; {"@itelefonica.com.br","smtp.itelefonica.com.br", 25, .f. },; {"@pop.com.br", "smpt.pop.com.br", 25, .f. } } Private aDomin := {}, nServ := 1 for i := 1 to len( aServs ) AADD( aDomin, aServs[i][1] ) next IF cNfe=.T. IF len(alltrim(cDest))==0 MsgStop( "Email Não Cadastrado" +CRLF+; "Envio Cancelado!!!") RETURN(.F.) endif IF !FILE(cAnexo) MsgStop( "Arquivo XML Não Encontrado" +CRLF+; "Caminho:" +CRLF+; cAnexo +CRLF+; "Envio Cancelado!!!") RETURN(.F.) endif ENDIF if file("dadosmail.dat") cDados := StrTran(MemoRead( "dadosmail.dat" ), "@hotmail.com", "") cUser := Memoline( cDados, 250, 1) cRemt := Memoline( cDados, 250, 2) if MlCount( cDados, 250 ) >= 3 nServ := Val(Alltrim(Memoline(cDados, 250, 3))) endif if MlCount( cDados, 250 ) >= 4 if Alltrim(Alltrim(Memoline(cDados, 250, 4))) = "0" lCheck := .f. else lCheck := .t. endif endif endif if nServ = 0 .or. nServ > len(aServs) nServ := 1 endif Set Delete ON ArqsDBF() ArqBmp() DEFINE FONT oFONT1 NAME "Ms Sans Serif" SIZE 0, -12 DEFINE DIALOG oDlg TITLE "Envio de eMail" From 0, 0 to 630, 600 Pixel *****--- SAY's ---************************************************************** @ 002,006 SAY oSay[1] PROMPT "Usuário - Somente o Nome" OF oDlg SIZE 100, 08 COLOR CLR_BLUE PIXEL @ 022,006 SAY oSay[3] PROMPT "Senha" OF oDlg SIZE 50, 08 COLOR CLR_BLUE PIXEL @ 042,006 SAY oSay[4] PROMPT "Remetente - Somente o Nome" OF oDlg SIZE 100, 08 COLOR CLR_BLUE PIXEL @ 052,088 SAY oSay[2] PROMPT aDomin[nServ] OF oDlg SIZE 50, 08 COLOR CLR_BLACK PIXEL @ 094,006 SAY oSay[9] VAR "Assunto" OF oDlg SIZE 35, 08 COLOR CLR_BLUE PIXEL update @ 124,006 SAY oSay[7] VAR "Mensagem" OF oDlg SIZE 80, 08 COLOR CLR_BLUE PIXEL update @ 210,006 SAY oSay[8] VAR "Anexos" OF oDlg SIZE 80, 08 COLOR CLR_BLUE PIXEL update @ 270,006 SAY oSay[6] VAR cTime OF oDlg SIZE 50, 08 COLOR CLR_RED PIXEL update *****OUTROS************************************************************* @ 010, 006 GET oGet[1] VAR cUser SIZE 80, 10 PIXEL OF oDlg PICTURE "@" Update oGet[1]:bValid := {|lRet| if(lRet := !Empty(cUser),(oGet[3]:VarPut(cUser), oGet[3]:Refresh()), ), .t. } @ 010, 088 COMBOBOX oComb VAR nServ ITEMS aDomin OF oDlg SIZE 100, 80 PIXEL; ON CHANGE (oSay[2]:SetText( aDomin[nServ] ) ) @ 030, 006 GET oGet[2] VAR cPass SIZE 80, 10 PIXEL OF oDlg Update oGet[2]:lPassWord := .T. @ 050, 006 GET oGet[3] VAR cRemt SIZE 80, 10 PIXEL OF oDlg PICTURE "@" Update @ 062, 040 GET oGet[4] VAR cDest SIZE 254, 10 PIXEL OF oDlg PICTURE "@" Update @ 072, 040 GET oGet[5] VAR cCC SIZE 254, 10 PIXEL OF oDlg PICTURE "@" Update @ 082, 040 GET oGet[6] VAR cCCO SIZE 254, 10 PIXEL OF oDlg PICTURE "@" Update @ 092, 040 GET oGet[7] VAR cAssunto SIZE 254, 10 PIXEL OF oDlg PICTURE "@" Update @ 132, 006 GET oGet[8] VAR cTxt OF oDlg SIZE 288, 70 COLOR CLR_BLUE, CLR_WHITE PIXEL update MEMO @ 218, 006 ListBox oList Var nItem ITEMS aAttach Size 268,50 Pixel oList:ADD(Alltrim(cAnexo)) oList:Hide() oList:Refresh() oList:Show() *****--- BOTÕES ---************************************************************* @ 290, 010 BUTTONBMP oBtn[1] PROMPT "Confirma" OF oDlg ; SIZE 30,10 PIXEL ; ACTION ( cTime := "Aguarde...", oSay[6]:Refresh(), ; if( lRet := Config_Mail(Lower(alltrim(cUser)),Alltrim(cPass),Lower(Alltrim(cRemt)),; Lower(Alltrim(cDest)),Lower(Alltrim(cCC)),Lower(Alltrim(cCCO)), cTxt, cAssunto ), ; (MsgInfo("Mensagem Enviada com Sucesso!","Confirmação de Envio"),DELItem(),ATUALIZA_CONFIRMACAO_EMAIL(cTTP),lSair := .t.,(Codigos->(dbCloseArea()),Cabgrupo->(dbCloseArea()),Grupos->(dbCloseArea()),Contatos->(dbCloseArea())),oDlg:End() ),), cTime := "", oSay[6]:Refresh() ) oBtn[1]:bWhen := {|| !Empty(cUser) } @ 290, 050 BUTTONBMP oBtn[2] PROMPT "Sair" OF oDlg ; SIZE 30,10 PIXEL ; ACTION ( lSair := .t.,DELItem(),(Codigos->(dbCloseArea()),Cabgrupo->(dbCloseArea()),Grupos->(dbCloseArea()),Contatos->(dbCloseArea())),oDlg:End() ) oBtn[2]:lCancel := .t. @ 218, 274 Button "ADD" Size 20,08 Pixel Action ADDItem() @ 228, 274 Button "DEL" Size 20,08 Pixel Action DELItem() @ 062, 006 BtnBmp oBt1 File "_loc.bmp" Prompt "Para" size 32,10 Pixel Right Action Inclui( oGet[4], @cDest ) @ 072, 006 BtnBmp oBt2 File "_loc.bmp" Prompt "CC" size 32,10 Pixel Right Action Inclui( oGet[5], @cCC ) @ 082, 006 BtnBmp oBt3 File "_loc.bmp" Prompt "CCO" size 32,10 Pixel Right Action Inclui( oGet[6], @cCCO ) ACTIVATE DIALOG oDlg CENTERED VALID ( Fim( cUser, cRemt, nServ) ) On Init Inicio( oDlg ) Return Nil //------------------------------------------------------------------------------ Function ATUALIZA_CONFIRMACAO_EMAIL(cTTP) if cTTP==.t. SELE 17 DO WHILE !RLOCK() ENDDO REPL SENDMAIL WITH "S" UNLOCK ARQNFE->(DBCOMMIT()) endif Return Nil //----------------------------------------------------------------------------- Function Inicio( oDlg ) Menu oMenu MenuItem "&Sistema" MENU MenuItem "&Gerenciar Contatos" Action Contatos() MenuItem oM2 Prompt "&Salvar contatos automaticamente" CHECK; Action if( oM2:lChecked, oM2:SetCheck(.f.), oM2:SetCheck(.t.) ) Separator MenuItem "Sai&r" Action ( oDlg:End() ) ENDMENU ENDMENU oM2:SetCheck( lCheck ) oDlg:SetMenu(oMenu) Return Nil //----------------------------------------------------------------------------- Function Fim(cUser, cRemt, nServ) MemoWrit("dadosmail.dat", cUSER+CRLF+cREMT+CRLF+Str(nServ)+CRLF+if(oM2:lChecked, "1", "0") ) Return .t. ******************************************************************************** Function Config_Mail(_cUser,cPass,_cRemt,cDest, cCC, cCCO, cTxt, cSubject) local lRet := .f. local oCfg, oError local cServ := aServs[nServ][2] //--> SERVIDOR SMTP - "smtp.servidor.com.br" local nPort := aServs[nServ][3] local lAut := .t. local lSSL := aServs[nServ][4] if Empty(cPass) .or. Empty(_cRemt) .or.; ( Empty(cDest) .and. Empty( cCC ) .and. Empty(cCCO) ) ? "Preencha todos Campos" return .f. else cUser := alltrim(_cUser) + aDomin[nServ] cRemt := alltrim(_cRemt) + aDomin[nServ] endif TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServ :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := lSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cUser :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPass :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END //--> FIM DAS CONFIGURAÇOES. if lRet lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject) endif Return lRet ******************************************************************************** Function Envia_Mail(oCfg,cFrom, cTo, cCC, cBCC, cMsg, cSubject) local cToken local lRet := .f. cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM COPIA cBCC := Destinatarios( cBCC ) //--> COM COPIA OCULTA TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cFrom :To = cTo :CC = cCC :BCC = cBCC :Subject = cSubject :TextBody = cMsg For x := 1 To Len( aAttach ) if aAttach[x] <> NIL :AddAttachment(AllTrim(aAttach[x])) endif Next :Send() END WITH lRet := .t. CATCH MsgInfo("Não Foi Possível enviar a mensagem. aqui") lRet := .f. END Return lRet //---------------------------------------------------------------- Function ADDItem() Local cArq := cGetFile32("*.*", "ADD Anexo", , ,.f.) if file(cArq) oList:ADD(Alltrim(cArq)) oList:Hide() oList:Refresh() oList:Show() endif Return NIL //---------------------------------------------------------------- Function DELItem() Local nIT := oList:GetSel() oList:DEL( nIT ) oList:Hide() oList:Refresh() oList:Show() Return NIL //------------------------------------------------------------ Function Destinatarios( cVar ) local i, x,cGrupo, nCod local aCars := {",", "/", "\", ";"} local cLista := "" local lSalva := .t., lAll := .f. Private aTp := {} for i := 1 to len( aCars ) cVar := StrTran( cVar, aCars[i], CRLF ) next for i := 1 to MLCount(cVar, 250) AADD(aTp, Alltrim(MemoLine(cVar, 250, i))) next for i := 1 to len(aTp) cTemp := aTp[i] if left(cTemp, 2) = "<<" .and. right(cTemp, 2) = ">>" cGrupo := StrTran(cTemp, "<<", "") cGrupo := StrTran(cGrupo, ">>", "") cGrupo := cGrupo+Space(20-Len(cGrupo)) if !oCab:Seek(cGrupo) Msginfo('Grupo "'+Alltrim(cGrupo)+'" não encontrado') else oGru:Gotop() do While !oGru:Eof() oGru:Load() cLista += ";"+NomeCont(oGru:CodC) oGru:Skip() enddo endif else cLista += ";"+cTemp if lCheck if !oCon:Seek(cTemp+Space(100-Len(cTemp))) oCon:Blank() oCon:Contato := cTemp oCod:Load() nCod := oCod:CodC+1 oCod:CodC := nCod oCod:Save() oCon:CodC := nCod oCon:Append() oCon:Save() endif endif endif next Return cLista //---------------------------------------------------------- Function ArqsDBF() local aEstG, aEstR, aEstC, aEstCods aEstCods := { { "CODG", "N", 10, 0 },; { "CODC", "N", 10, 0 } } aEstG := { { "CODG", "N", 10, 0 },; { "GRUPO", "C", 20, 0 } } aEstR := { { "CODG", "N", 10, 0 },; { "CODC", "N", 10, 0 } } aEstC := { { "CODC", "N", 10, 0 },; { "CONTATO", "C", 100, 0 } } If !File( "Codigos.dbf") DBCreate( "Codigos.dbf", aEstCods ) endif If !File( "CabGrupo.dbf") DBCreate( "CabGrupo.dbf", aEstG ) endif If !File( "Grupos.dbf") DBCreate( "Grupos.dbf", aEstR ) endif If !File( "Contatos.dbf") DBCreate( "Contatos.dbf", aEstC ) endif Use Codigos New DATABASE oCod Use CabGrupo New Index on CabGrupo->Grupo to GCabGru DATABASE oCab Use Grupos New Set Filter to Grupos->CodG = CabGrupo->CodG DATABASE oGru Use Contatos New Index on Contatos->CodC to CodCont Index on Contatos->Contato to cCont Set index to cCont, CodCont DATABASE oCon if oCod:RecCount() = 0 oCod:Append() oCod:Save() endif oCab:bBoF := NIL ; oCab:bEoF := NIL oGru:bBoF := NIL ; oGru:bEoF := NIL oCon:bBoF := NIL ; oCon:bEoF := NIL oCod:bBoF := NIL ; oCod:bEoF := NIL Return NIL //----------------------------------------------------------------- Static Function ArqBmp() Local cHexa if file("_loc.bmp") Return NIL endif cHexa := "424df6000000000000003600000028000000080000000800000001001800" cHexa += "00000000c0000000c30e0000c30e00000000000000000000ffffffffffff" cHexa += "fffffffffffffffffff6f7fae9edf4ffffffffffffffffffffffffffffff" cHexa += "f4f6fa9bb9d7749fc8d7e1edffffffebf2f7b7cfe4b1c9e18ab2d386bfdb" cHexa += "71a4cacdd6e5ebf3f8a3c6ddc1d3e2dbe3e9abc9dd6fa6cec1d3e7ffffff" cHexa += "c6deecbad4e2fff9effff7edfcf7f09ab8d5e5edf5ffffffc4ddedc7dce6" cHexa += "fff6ebfbf2e9fff7efaec8dde4edf5ffffffdeedf5a9cee2e7ebeaf5f1eb" cHexa += "d8e2e89ec0dbf1f6faffffffffffffd6e8f2acd0e4b5d4e6aacde2e2edf5" cHexa += "ffffffffffff" MemoWrit( "_loc.bmp", _Binario(cHexa) ) //------------------------------------------------------------------------------- Function _Binario( cHexa ) local i, nInd1, nInd2, nByte, cBin := "" local aBase := {"0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f"} for i := 1 to len( cHexa ) STEP 2 nInd1 := aScan(aBase, SubStr( cHexa, i, 1 ))-1 nInd2 := aScan(aBase, SubStr( cHexa, i+1, 1 ))-1 nByte := nInd1*16+nInd2 cBin += Chr(nByte) next Return cBin Return cHexa //----------------------------------------------------------------------- Function Contatos() Private oBrw1, oBut1, oBut2, oBut3, oBrw2,; oBut4, oBut5, oBrw3, oBut6, oBut7,; oBut8, lInicio := .f. Select Contatos Set index to cCont, CodCont Define DIALOG oDlgCont TITLE "Gerenciar Contatos" ; FROM 0, 0 to 484, 791 PIXEL COLOR 0, 15790320 ACTIVATE DIALOG oDlgCont ON INIT Ini_oDlgCont() CENTER Return NIL //---------------------------------------------------------------------------- Function Ini_oDlgCont() @ 11, 14 LISTBOX oBrw1; FIELDS CONTATOS->CONTATO; HEADERS "CONTATOS"; SIZE 406, 409 PIXEL OF oDlgCont FONT oFont1 ALIAS "CONTATOS" oBrw1:nClrText := {|| iif( OrdKeyNo()%2=0, 0, 0 ) } oBrw1:nClrPane := {|| iif( OrdKeyNo()%2=0, 15790320, 16777215 ) } oBrw1:nClrForeHead := 16777215 oBrw1:nClrBackHead := 8421504 oBrw1:nClrForeFocus := 16777215 oBrw1:nClrBackFocus := 8388608 @ 444, 14 BUTTON oBut1 Prompt "&Novo" SIZE 70, 24 PIXEL; OF oDlgCont ACTION CadContato(.t.) FONT oFont1 @ 444, 93 BUTTON oBut2 Prompt "&Alterar" SIZE 70, 24 PIXEL; OF oDlgCont ACTION CadContato(.f.) FONT oFont1 @ 444, 172 BUTTON oBut3 Prompt "&Excluir" SIZE 70, 24 PIXEL; OF oDlgCont ACTION DeleteCon() FONT oFont1 @ 11, 444 LISTBOX oBrw2; FIELDS CABGRUPO->GRUPO; HEADERS "GRUPOS"; SIZE 300, 171 PIXEL OF oDlgCont FONT oFont1 ALIAS "CABGRUPO"; ON Change if( lInicio, (oBrw3:Hide(), oBrw3:GoTop(), oBrw3:Refresh(), oBrw3:Show()), NIL) oBrw2:nClrText := {|| iif( OrdKeyNo()%2=0, 0, 0 ) } oBrw2:nClrPane := {|| iif( OrdKeyNo()%2=0, 15790320, 16777215 ) } oBrw2:nClrForeHead := 16777215 oBrw2:nClrBackHead := 8421504 oBrw2:nClrForeFocus := 16777215 oBrw2:nClrBackFocus := 8388608 @ 26, 750 BUTTON oBut4 Prompt "New" SIZE 30, 26 PIXEL; OF oDlgCont ACTION CadastraGru( .t. ) FONT oFont1 @ 52, 750 BUTTON oBut5 Prompt "Alt" SIZE 30, 26 PIXEL; OF oDlgCont ACTION CadastraGru( .f. ) FONT oFont1 @ 78, 750 BUTTON oBut5a Prompt "Del" SIZE 30, 26 PIXEL; OF oDlgCont ACTION DeletaGru() FONT oFont1 @ 186, 444 LISTBOX oBrw3; FIELDS NomeCont(GRUPOS->CODC); HEADERS "INTEGRANTES DO GRUPO"; SIZE 300, 234 PIXEL OF oDlgCont FONT oFont1 ALIAS "GRUPOS" oBrw3:nClrText := {|| iif( OrdKeyNo()%2=0, 0, 0 ) } oBrw3:nClrPane := {|| iif( OrdKeyNo()%2=0, 15790320, 16777215 ) } oBrw3:nClrForeHead := 16777215 oBrw3:nClrBackHead := 8421504 oBrw3:nClrForeFocus := 16777215 oBrw3:nClrBackFocus := 8388608 @ 268, 422 BUTTON oBut6 Prompt ">" SIZE 21, 21 PIXEL; OF oDlgCont ACTION ADDCont() FONT oFont1 @ 290, 422 BUTTON oBut7 Prompt "<" SIZE 21, 21 PIXEL; OF oDlgCont ACTION RemoveCont() FONT oFont1 @ 444, 675 BUTTON oBut8 Prompt "Sai&r" SIZE 70, 24 PIXEL; OF oDlgCont ACTION oDlgCont:End() FONT oFont1 lInicio := .t. oBrw3:Hide(); oBrw3:GoTop(); oBrw3:Refresh(); oBrw3:Show() Return NIL //---------------------------------------------------------------- Function CadContato( lNovo ) if lNovo oCon:Blank() else oCon:Load() endif Define dialog oDlgCadCon Title if(lNovo, "Novo Contato", 'Alterando "'+oCon:Contato+'"'); From 0,0 to 200,300 Pixel @ 20,20 Say "Contato" Size 40,10 Pixel @ 32,20 Get oGetCon Var oCon:Contato Size 110,10 Pixel @ 70, 25 Button "&Salvar" Size 40,10 Pixel Action SalvaCon( lNovo ) @ 70, 85 Button "&Desistir" Size 40,10 Pixel Action oDlgCadCon:End() Activate dialog oDlgCadCon Center Return NIL //---------------------------------------------------------------- Function SalvaCon( lNovo ) Local nCod if lNovo oCod:Load() nCod := oCod:CodC+1 oCod:CodC := nCod oCod:Save() oCon:CodC := nCod oCon:Append() endif oCon:Contato := Lower( oCon:Contato) oCon:Save() oBrw1:Hide() oBrw1:Refresh() oBrw1:Show() oDlgCadCon:End() Return NIL //---------------------------------------------------------------- Function DeleteCon() oCon:Load() if MsgNoYes( 'Excluir o contato "'+Alltrim(oCon:Contato)+'"?', "Atenção") oCon:Delete() oBrw1:Hide() oBrw1:Refresh() oBrw1:Show() endif Return NIL //------------------------------------------------------------ Function CadastraGru( lNovo ) if lNovo oCab:Blank() else oCab:Load() endif Define dialog oDlgCadGru Title if(lNovo, "Novo Grupo", 'Alterando "'+oCab:Grupo+'"'); From 0,0 to 200,300 Pixel @ 20,20 Say "GRUPO" Size 40,10 Pixel @ 32,20 Get oGetGru Var oCab:Grupo Size 110,10 Pixel @ 70, 25 Button "&Salvar" Size 40,10 Pixel Action SalvaGru( lNovo ) @ 70, 85 Button "&Desistir" Size 40,10 Pixel Action oDlgCadGru:End() Activate dialog oDlgCadGru Center Return NIL //------------------------------------------------------- Function SalvaGru( lNovo ) Local nCod if lNovo oCod:Load() nCod := oCod:CodG+1 oCod:CodG := nCod oCod:Save() oCab:CodG := nCod oCab:Append() endif oCab:Grupo := Lower(oCab:Grupo) oCab:Save() oBrw2:Hide() oBrw2:Refresh() oBrw2:Show() oDlgCadGru:End() Return NIL //---------------------------------------------------------------- Function DeletaGru() oCab:Load() if MsgNoYes( 'Excluir o grupo "'+Alltrim(oCab:Grupo)+'"?', "Atenção") oCab:Delete() oBrw2:Hide() oBrw2:Refresh() oBrw2:Show() endif Return NIL //------------------------------------------------------------ Function ADDCont() oCab:Load() if oCab:CodG = 0 MsgInfo("Selecione um GRUPO") Return NIL endif oCon:Load() if oCon:CodC = 0 MsgInfo("Selecione um contato") Return NIL endif oGru:Blank() oGru:CodC := oCon:CodC oGru:CodG := oCab:CodG oGru:Append() oGru:Save() oBrw3:Hide() oBrw3:Refresh() oBrw3:Show() Return NIL //------------------------------------------------------------- Function RemoveCont() oGru:Load() if MsgNoYes( 'Remover o contato selecionado?') oGru:Delete() oBrw3:Hide() oBrw3:Gotop() oBrw3:Refresh() oBrw3:Show() endif Return Nil //----------------------------------------------------------------- Function NomeCont(nCod) Local nRec := oCon:RecNo() Local cNome := "" Select Contatos Set index to CodCont, cCont if oCon:Seek( nCod ) cNome := oCon:Contato endif Select Contatos Set index to cCont, CodCont oCon:GoTo(nRec) Return cNome //--------------------------------------------------------------- Function Inclui( oGet, cVar ) nRad := 1 Define Dialog oDlgInc Title "Incluir contato" From 0,0 to 200, 300 Pixel @ 20,20 Radio oRad Var nRad Prompt "Inluir Contato", "Incluir Grupo" Size 80,10 Pixel @ 70, 25 Button "&Ok" Size 40,10 Pixel Action IncluiCont( nRad, oGet, @cVar ) @ 70, 85 Button "&Desistir" Size 40,10 Pixel Action oDlgInc:End() Activate Dialog oDlgInc CENTER //----------------------------------------------------------- Function IncluiCont( nRad, oGet, cVar ) if nRad = 1 BuscaCont(oGet, @cVar) else BuscaGru(oGet, @cVar) endif //---------------------------------------------------------- Function BuscaCont( oGet, cVar ) aListCont := {} nListCont := 1 Define Dialog oDlgCon Title "Contatos" From 0,0 to 484, 792 Pixel @ 11, 14 LISTBOX oBrw; FIELDS CONTATOS->CONTATO; HEADERS "CONTATOS"; SIZE 203, 205 PIXEL OF oDlgCon FONT oFont1 ALIAS "CONTATOS" @ 10,219 Button ">" Size 10, 10 Pixel; Action (oCon:Load(), oListCont:ADD(oCon:Contato), oListCont:Refresh()) @ 21,219 Button "<" Size 10, 10 Pixel; Action (oListCont:Del(nListCont), oListCont:Refresh()) @ 11, 232 ListBox oListCont Var nListCont Items aListCont; size 150, 206 pixel of oDlgCon Font oFont1 @ 226, 148 Button "&OK" Size 40,10 Pixel Action ConfCont( oGet, @cVar ) @ 226, 208 Button "&Desistir" Size 40,10 Pixel Action oDlgCon:End() Activate dialog oDlgCon CENTER //----------------------------------------------------------- Function ConfCont( oGet, cVar ) local i oCon:Load() cVar := Alltrim(cVar) if len(cVar) > 0 cVar := Alltrim(cVar)+";" endif for i := 1 to len( oListCont:aItems ) cVar := cVar+if(i>1,";", "")+Alltrim(oCon:Contato) next cVar+=Space(100) oGet:SetText( cVar ) oDlgCon:End() oDlgInc:end() Return NIL //---------------------------------------------------------- Function BuscaGru( oGet, cVar ) Define Dialog oDlgGru Title "Grupos" From 0,0 to 484, 450 Pixel @ 11, 14 LISTBOX oBrw; FIELDS CABGRUPO->GRUPO; HEADERS "GRUPOS"; SIZE 203, 205 PIXEL OF oDlgGru FONT oFont1 ALIAS "CABGRUPO" @ 226, 071 Button "&OK" Size 40,10 Pixel Action ConfGru( oGet, @cVar ) @ 226, 131 Button "&Desistir" Size 40,10 Pixel Action oDlgGru:End() Activate dialog oDlgGru CENTER //----------------------------------------------------------- Function ConfGru( oGet, cVar ) oCab:Load() if len(Alltrim(cVar)) > 0 cVar := Alltrim(cVar)+";" endif cVar := Alltrim(cVar)+"<<"+Alltrim(oCab:Grupo)+">>"+Space(100) oGet:SetText( cVar ) oDlgGru:End() oDlgInc:end() Return NIL
  12. Alain da Silva
    Boa tarde pessoal, uso essa rotina para fazer backup: cFile := ".\BKP\XMLNFE\BkpXMLNFe_"+DTOS(Date())+".Zip" cDirLocalXmlNFe:=".\AXML\" aFile3 := Directory(".\AXML\*.XML") AEval(aFile3,{|a|AAdd(aFileBck,cDirLocalXmlNFe+a[F_NAME])}) //Añado path a los nombre de archivo Comprime( cFile, aFileBck,"Xml das NFe" ) aFileBck:={} Aqui por exemplo no diretório \AXML funciona blz. Agora para os sub-diretórios ex?: \AXML\FORNECEDOR , \AXML\CLIENTES como faço? Obrigado
  13. Alain da Silva
    Bom dia, testei e funcionou. Agora quanto ao conteúdo, como funciona por exemplo as opções? Tem como fazer as opções VCARD, TEXTO, EMAIL. No caso de contato, como colocar nome,telefone,endereço...
  14. Alain da Silva
    obrigado kapiaba, vou estar testando.
  15. Alain da Silva
    boa tarde pessoal, é o seguinte: tenho dois arquivos Arq. 1) F03FEV15.DBF Arq. 2) TMPFOLHA.DBF (VAZIO TEMPORARIO) Como faço pra passar os dados do arquivo 1 para o arquivo 2. obrigado
  16. Alain da Silva
    Boa tarde, não sei se estou muito atrasado mas comecei somente agora a me mexer sobre o assunto e estou meio perdido. A minha pergunta principal é: existe um programa para se fazer os testes dos arquivos a serem importados. Hoje entrei no portal www.esocial.gov.br cheguei até a fazer o cadastro só ai que vi que la se falava somente em empregador doméstico (pelo menos não vi outra opção). Os amigos poderiam me dizer como deve ser minha linha de implantação. Agradeço a ajuda.
  17. Alain da Silva
    obrigado sambomb, era isso mesmo.
  18. Alain da Silva
    boa tarde pessoal, preciso criar 100 botões. dessa forma é possível saber qual botão clicou ou existe outra maneira de se criar com mais facilidade FOR NID := 102 TO 201 NBT:=1 REDEFINE SBUTTON OBOTAOM[NBT] ID NID ; ACTION * * * * SBER QUAL BOTÃO CLICOU * * * TOOLTIP "Clique aqui para efetuar vendas por telefone" ; COLORS PRETO,CORTABELA; FONT FNORMAL; OFFICE OF DLGVEN NBT+=1 NEXT NID
  19. Alain da Silva
    DEFINE FONT VERTICAL NAME "Arial" SIZE 0, -9 OF oPrn NESCAPEMENT 900 UTILPRN oUtil XLN+2.4,0.55 SAY "EMPREGADOR" fonT VERTICAL
  20. Alain da Silva
    Simula o CLICK em determinado objeto dentro do 'browse', no caso acima o botao consultar. o botão que esta clicando é "DOWNLOAD DO DOCUMENTO" isso depois que ele encontra a nfe.
  21. Alain da Silva
    sim lailton, eu comprei de você o código para importar o sintegra. Agora modifiquei para fazer a importação no site do portal nacional puxando os dados para cadastro da nfe e para fazer o download do xml no portal nacional. (baixa o xml sim). Então fique ai uma correção: programa sintegra: Exemplo de uso da class TSintegra Data : 10/02/2011 | 02:36 AM Autor: Lailton Fernando Mariano - <developer@lailton.com.br> * Função : Classe para efetuar o Download do Xml no Portal Nacional * Data : 20/03/2014 14:00:00 revisado e alterado:Por : Alain/Rancharia um abraço agora como falei em cima ja esta mandando a chave, falta fazer a imagem abs
  22. Alain da Silva
    alterando aqui: agora leva a chave: oAct:Navigate( ::cPost ) oAct:SetFocus() WHILE oAct:Busy SysWait(.2) ENDDO oActdo:=oAct:Document() oActdo:All:Item("ctl00$ContentPlaceHolder1$txtChaveAcessoCompleta",0):Value:=cchave falta a imagem agora. abs
  23. Alain da Silva
    Sim, quem melhorar é só postar as alterações. Eu não uso o colar e copiar porque eu uso essa classe com algumas modificações. Essa eu deixei somente a parte do download do xml. A que eu uso eu digito o código e o captcha e ele traz todos os dados da nfe que importo para meu meu programa e depois ele faz automatico o download do xml. Ainda estou melhorando o código, assim que der eu coloco o código inteiro. Mas quem conseguir mandar a chave e o captha seria ideal. abs
  24. Alain da Silva
    Deixa eu ver se eu entendi o que vc perguntou. Você faz a chamada no seu programa: ex: MENUITEM "Importar Xml" RESOURCE "DANFE" ACTION DISPARAXML() Static Function Disparaxml() oDownXml:=ClassDownloadXml():New() oDownXml:Consulta() REturn Nil Ee abre a pagina no seu programa da consulta da nfe e faz o download do documento(xml) se vc tiver o certificado. Eu não consegui mandar via programa a chave e o captcha, tem que digitar manualmente.
  25. Alain da Silva
    Sim, tem que colocar a chave e o captcha.
×
×
  • Create New...