Alain da Silva Posted April 26, 2016 Report Share Posted April 26, 2016 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 26, 2016 Report Share Posted April 26, 2016 // ERRO AQUI, PONHA EM UM IIF no ON ONIT DO ACTIVATE.. *----------------------------------------------------------------------------------------------- /* IF OPCAO<>"I" ICONDICAO:=.F. DESABILITAOBJ(OBJFOR,23) ELSE ICONDICAO:=.T. ATIVAOBJ(OBJFOR,23) ENDIF */ // NAO PONHA NADA DEPOIS DOS BOTOES DEPOIS DO DEFINE DIALOG QUE INVOQUE LOOPING *----------------------------------------------------------------------------------------------- // STATIC SAIDLG:=.F. // COLOQUE NO INICIO DO MODULO, ANTES DE FUNCTION ACTIVATE DIALOG ODLGFORMANUT VALID SAIDLG CENTERED ; ON INIT IIF( OPCAO<>"I", ICONDICAO:=.F., DESABILITAOBJ(OBJFOR,23), ; ICONDICAO:=.T., ATIVAOBJ(OBJFOR,23) ) Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 27, 2016 Author Report Share Posted April 27, 2016 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()) ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 29, 2016 Report Share Posted April 29, 2016 // ABRA TODOS OS SEUS SELECTs, ANTES DO DIALGO E CRIE UM ALIAS PARA CADA UM DELES SELE 18 DBSETORDER(1) cAlias18 := ALIAS() // Passe para a Listbox os Valores de cAlias18 E assim fazer para todos os outros SELE... Outra coisa o comando UPDATE, e para ser usado nos GETS e SAYS. *----------- 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) // ERRADO, ABRINDO DENTRO DO LOOPING? */ 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" ; Entendeu? abs. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 29, 2016 Author Report Share Posted April 29, 2016 valeu obrigado kapiaba Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 29, 2016 Author Report Share Posted April 29, 2016 na verdade kapiaba eu ja abro os arquivos antes. IF ABRE17()=.F..OR.ABRE18()=.F..OR.ABRE43()=.F..OR.ABRE1()=.F..OR.ABRE45()=.F..OR.ABRE19()=.F..OR.ABRE14()=.F..OR.ABRE16()=.F..OR.ABRE23()=.F..OR.ABRE20()=.F..OR.ABRE42()=.F..OR.ABRE200()=.F..OR.ABRE46()=.F..OR.ABRE180()=.F..OR.ABRE190()=.F..OR.ABRE170()=.F..OR.ABRE21()=.F..OR.ABRE201()=.F..OR.ABRE202()=.F..OR.ABRE160()=.F..OR.ABRE52()=.F..or.ABRE47()=.f. MSGALERT("Não Foi Possível Abrir os Arquivos, Tente Novamente...","Mensagem") RETURN(.F.) ENDIF *----------- 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--------------------------------------------------------------------------------- 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" ; ...... *----------------------------------------------------------------------------------------------- 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()) ) FUNCTION ABRE17 DO MEM1 SELE 17 USE .\DADOS\ARQNFE INDEX .\DADOS\ARQNFE IF BLOQUEIO()=.F. RETURN(.F.) ENDIF RETURN(.T.) mesmo tirando os selects antes do browse ainda fica dentro dos 6segundos. São muitos campos. São 6 folders com muitas informações em cada um, browse... Essa que é minha dúvida, é normal esse tempo ou não? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 29, 2016 Report Share Posted April 29, 2016 Em minha opinião, deveria ser instantaneo. Tem mais alguma coisa te segurando. Experimente DESLIGAR tudo, e ir LIGANDO STEP by STEP até descobrir o que causa a lentidão... abs. Agora... se a máquina for velha ou do tempo do ronka... sorry!! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.