MARSAN

Boa tarde a todos, Seguinte.... Preciso que apareca para o usuario a tela do windows de selecao do certificado digital, pois uso varios certificados em um mesmo micro.... uso a classe Gilmer para nfe, eu dava um "del c:\windows\vonf*ini" ....que automaticamente aparecia a telinha que estou me referindo para o usuario selecionar o certificado....isso no windows xp. Agora com o windows 7 a tela de selecao nao mais aparece para o usuario ...gostaria que alguem me ensinasse a forcar o aparecimento da refirada tela de selecao, pois este arquivo .ini da classe nem é gerado mais no win 7. fwh 9.03+xharbour,bcc55,xdev

Boa tarde a todos, Seguinte.... Preciso que apareca para o usuario a tela do windows de selecao do certificado digital, pois uso varios certificados em um mesmo micro.... uso a classe Gilmer para nfe, eu dava um "del c:\windows\vonf*ini" ....que automaticamente aparecia a telinha que estou me referindo para o usuario selecionar o certificado....isso no windows xp. Agora com o windows 7 a tela de selecao nao mais aparece para o usuario ...gostaria que alguem me ensinasse a forcar o aparecimento da refirada tela de selecao, pois este arquivo .ini da classe nem é gerado mais no win 7. fwh 9.03+xharbour,bcc55,xdev

Olá pessoal preciso de uma ajudo, não estou conseguindo roda a xDev no windows 7, se alguém souber me avise ficarei grato. fwh 9.03+xharbour,bcc55,xdev

Olá pessoal preciso de uma ajudo, não estou conseguindo roda a xDev no windows 7, se alguém souber me avise ficarei grato. fwh 9.03+xharbour,bcc55,xdev

Ola amigo, faco assim: FUNCTION BUSPRE M_CODREF=SPACE(05) M_DESCREF = SPACE(35) TABREF(.F.) SET CURSOR ON if MsgYesNo( "Deseja Transferir dados para o BUSCA PRECO ? ") MID001(.T.) ZAP SELE TABREF GO TOP DO WHILE .NOT. EOF() IF EMPTY(CODBAR) SKIP LOOP ENDI SELE MID001 APPEND BLANK REPLACE CP01 WITH TABREF->CODBAR REPLACE CP02 WITH "|" REPLACE CP03 WITH TABREF->DESCREF REPLACE CP04 WITH "|" REPLACE CP05 WITH STR(TABREF->PVENREF,9,2) REPLACE CP06 WITH "|" REPLACE CP07 WITH RTRIM(TABREF->CODBAR)+CP02+CP03+CP04+CP05+CP06 SELE TABREF SKIP ENDDO SELE MID001 CLOSE DATA MID001(.T.) M_ARQ="C:\ARQUIV~1\SC501TXT\PRICETAB" COPY FIELDS CP07 TO &M_ARQ SDF ENDI CLOSE DATA MSGALERT("ARQUIVO BUSCA PRECO GERADO COM SUCESSO!") RETURN .T. fwh 9.03+xharbour,bcc55,xdev

bOA NOITE SENHORES, Alguem tem um arquivo sped fiscal contendo informacao de nota de entrada modelo normal (nao eletronica)? Desejo saber o uso dos campos c100, c170 e c190.... Quem puder ajudar enviar email para san.tembra@hotmail.com desde ja agradeco a atencao fwh 9.03+xharbour,bcc55,xdev Editado por - marsan on 08/05/2012 23:23:44

bOA NOITE SENHORES, Alguem tem um arquivo sped fiscal contendo informacao de nota de entrada modelo normal (nao eletronica)? Desejo saber o uso dos campos c100, c170 e c190.... Quem puder ajudar enviar email para san.tembra@hotmail.com desde ja agradeco a atencao fwh 9.03+xharbour,bcc55,xdev Editado por - marsan on 08/05/2012 23:23:44

Estou querendo implementar o listbox com comandos de cores diferentes nas linhas. Ex.: Situação inativo linha vermelha. Não estou conseguindo implementar, se alguém poder me ajudar com as instruções, ficarei grato. Abaixo meu código FUNCTION cadCLI(M_ORIG) *********************** local oDlg local oWND local oLbx local n CLIENTE(.F.) SELE CLIENTE SET ORDER TO 3 GO TOP DEFINE FONT oFont1 NAME "Arial" SIZE 6, 15 && Fonte como no MS-WORD DEFINE FONT oFont2 NAME "Arial" SIZE 6, 15 && Fonte como no MS-WORD DEFINE DIALOG oDlg FROM 2, 1 TO 40, 110 TITLE "Manutenção de "+m_titulo @ 2, 1 LISTBOX oLbx ; FIELDS CLIENTE->CODCLI,CLIENTE->NOMCLI,CLIENTE->ENDCLI,CLIENTE->TELCLI,CLIENTE->FANCLI; HEADERS "Codigo","Nome do Cliente","Endereço","Telefone","Fantasia"; FIELDSIZES 50,270,270,80,80 COLOR CLR_BLACK, RGB( 255, 255, 235); SIZE 420, 215 OF oDLg FONT oFont1 oLbx:aJustify := {.F.,.F.,.F.,.f.,.f.} *oLbx:bKeyDown := {|nK| ProcKeyA(nK,OLBX) } @ 05,10 BTNBMP OF oDlg FILENAME "\Stembra\bmp\top.bmp" ACTION (oLbx:GoTop(),oLbx:SetFocus()) SIZE 20, 11 @ 05,30 BTNBMP OF oDlg FILENAME "\Stembra\bmp\prev.bmp" ACTION (oLbx:GoUp(),oLbx:SetFocus()) SIZE 20, 11 @ 05,50 BTNBMP OF oDlg FILENAME "\Stembra\bmp\next.bmp" ACTION (oLbx:GoDown(),oLbx:SetFocus()) SIZE 20, 11 @ 05,70 BTNBMP OF oDlg FILENAME "\Stembra\bmp\bottom.bmp" ACTION (oLbx:Gobottom(),oLbx:Setfocus()) SIZE 20, 11 @ 05,90 BTNBMP OF oDlg FILENAME "\Stembra\bmp\redo.bmp" ACTION (oLbx:Refresh(),oLbx:BugUp(),oLbx:SetFocus()) SIZE 20, 11 @ 255,10 BTNBMP OF oDlg TOOLTIP "INCLUIR" FILENAME "\Stembra\bmp\incluir.bmp" ACTION (rtinc(olbx,m_orig)) SIZE 60, 25 @ 255,80 BTNBMP OF oDlg TOOLTIP "ALTERAR" FILENAME "\Stembra\bmp\alterar2.bmp" ACTION (ALTcli(OLBX,m_orig)) SIZE 60, 25 @ 255,150 BTNBMP OF oDlg TOOLTIP "EXCLUIR" FILENAME "\Stembra\bmp\excluir.bmp" ACTION (EXCLUIcli(),oLbx:SetFocus()) SIZE 60, 25 @ 255,220 BTNBMP OF oDlg TOOLTIP "CONSULTAR" FILENAME "\Stembra\bmp\pesquisar.bmp" ACTION (BUSCLI(OLBX)) SIZE 60, 25 if m_orig="CLI" @ 255,290 BTNBMP OF oDlg TOOLTIP "RELATORIO" FILENAME "\Stembra\bmp\imprimir.bmp" ACTION (pul10152("CLI"),odlg:end) SIZE 60, 25 else @ 255,290 BTNBMP OF oDlg TOOLTIP "RELATORIO" FILENAME "\Stembra\bmp\imprimir.bmp" ACTION (pul10152("FOR"),odlg:end) SIZE 60, 25 endif @ 255,360 BTNBMP OF oDlg TOOLTIP "SAIR" FILENAME "\Stembra\bmp\EXIT.bmp" ACTION (oDLG:END) SIZE 60, 25 ACTIVATE DIALOG oDlg CENTERED DBCLOSEALL() RETURN fwh 9.03+xharbour,bcc55,xdev

Estou querendo implementar o listbox com comandos de cores diferentes nas linhas. Ex.: Situação inativo linha vermelha. Não estou conseguindo implementar, se alguém poder me ajudar com as instruções, ficarei grato. Abaixo meu código FUNCTION cadCLI(M_ORIG) *********************** local oDlg local oWND local oLbx local n CLIENTE(.F.) SELE CLIENTE SET ORDER TO 3 GO TOP DEFINE FONT oFont1 NAME "Arial" SIZE 6, 15 && Fonte como no MS-WORD DEFINE FONT oFont2 NAME "Arial" SIZE 6, 15 && Fonte como no MS-WORD DEFINE DIALOG oDlg FROM 2, 1 TO 40, 110 TITLE "Manutenção de "+m_titulo @ 2, 1 LISTBOX oLbx ; FIELDS CLIENTE->CODCLI,CLIENTE->NOMCLI,CLIENTE->ENDCLI,CLIENTE->TELCLI,CLIENTE->FANCLI; HEADERS "Codigo","Nome do Cliente","Endereço","Telefone","Fantasia"; FIELDSIZES 50,270,270,80,80 COLOR CLR_BLACK, RGB( 255, 255, 235); SIZE 420, 215 OF oDLg FONT oFont1 oLbx:aJustify := {.F.,.F.,.F.,.f.,.f.} *oLbx:bKeyDown := {|nK| ProcKeyA(nK,OLBX) } @ 05,10 BTNBMP OF oDlg FILENAME "\Stembra\bmp\top.bmp" ACTION (oLbx:GoTop(),oLbx:SetFocus()) SIZE 20, 11 @ 05,30 BTNBMP OF oDlg FILENAME "\Stembra\bmp\prev.bmp" ACTION (oLbx:GoUp(),oLbx:SetFocus()) SIZE 20, 11 @ 05,50 BTNBMP OF oDlg FILENAME "\Stembra\bmp\next.bmp" ACTION (oLbx:GoDown(),oLbx:SetFocus()) SIZE 20, 11 @ 05,70 BTNBMP OF oDlg FILENAME "\Stembra\bmp\bottom.bmp" ACTION (oLbx:Gobottom(),oLbx:Setfocus()) SIZE 20, 11 @ 05,90 BTNBMP OF oDlg FILENAME "\Stembra\bmp\redo.bmp" ACTION (oLbx:Refresh(),oLbx:BugUp(),oLbx:SetFocus()) SIZE 20, 11 @ 255,10 BTNBMP OF oDlg TOOLTIP "INCLUIR" FILENAME "\Stembra\bmp\incluir.bmp" ACTION (rtinc(olbx,m_orig)) SIZE 60, 25 @ 255,80 BTNBMP OF oDlg TOOLTIP "ALTERAR" FILENAME "\Stembra\bmp\alterar2.bmp" ACTION (ALTcli(OLBX,m_orig)) SIZE 60, 25 @ 255,150 BTNBMP OF oDlg TOOLTIP "EXCLUIR" FILENAME "\Stembra\bmp\excluir.bmp" ACTION (EXCLUIcli(),oLbx:SetFocus()) SIZE 60, 25 @ 255,220 BTNBMP OF oDlg TOOLTIP "CONSULTAR" FILENAME "\Stembra\bmp\pesquisar.bmp" ACTION (BUSCLI(OLBX)) SIZE 60, 25 if m_orig="CLI" @ 255,290 BTNBMP OF oDlg TOOLTIP "RELATORIO" FILENAME "\Stembra\bmp\imprimir.bmp" ACTION (pul10152("CLI"),odlg:end) SIZE 60, 25 else @ 255,290 BTNBMP OF oDlg TOOLTIP "RELATORIO" FILENAME "\Stembra\bmp\imprimir.bmp" ACTION (pul10152("FOR"),odlg:end) SIZE 60, 25 endif @ 255,360 BTNBMP OF oDlg TOOLTIP "SAIR" FILENAME "\Stembra\bmp\EXIT.bmp" ACTION (oDLG:END) SIZE 60, 25 ACTIVATE DIALOG oDlg CENTERED DBCLOSEALL() RETURN fwh 9.03+xharbour,bcc55,xdev

desculpa o atraso na resposta parceiro...... fwh 9.03+xharbour,bcc55,xdev

Desculpa o atraso em responder parceiro....... abracos fwh 9.03+xharbour,bcc55,xdev

|0000|002|0|||01012012|31012012|A S DE OLIVEIRA DISTIBUIDORA|05866323000186|PA|1501402||00|1| |0001|0| |0100|JOSE CARLOS|25794604204|8066||66000000|ARTHUR BERNARDES 21 2. ANDAR|21|COMPLEMENTO|TELEGRAFO|9132445194|9132445194|san.tembra@hotmail.com|1600303| |0110|1|1|1| |0140|DIST. MARAJOARA|A S DE OLIVEIRA DISTIBUIDORA|05866323000186|PA|152334351|1501402||| |0150|000530|CLEMENTINO FURTADO FERREIRA|01058||60558652204||1505809||AV MAGALHAES BARATA 66|0000||CENTRO| |0150|000182|SALETE DE JESUS VALENTE|01058||83451439204||1501105||RIO MOCAJATUBA|0000||VILA MONTE SINA| |0150|000180|RAIMUNDO NONATO R PESSOA|01058||41022874268||1501105||RUA BARAO DO RIO BRANCO SN|0000||CENTRO| |0150|000260|OLIVALDO GOMES FEITOSA|01058||37692178291||1502806||RUA JARBAS PASSARINHO|0000||CENTRO| |0150|000352|M L F CARDOSO|01058|08676225000174||152592962|1500305||AV BARAO DO RIO BRANCO 161|0000||CENTRO| |0150|000215|R PAZ COMERCIAL NAVEGACAO ME|01058|11938810000100||153026111|1500305||RUA QUINTINO BOCAIUVA N 06|0000||CENTRO| |0150|000226|COMERCIO BEBIDAS ESTIVAS PALMEIRAS|01058|83877761000153||151800448|1501402||RUA SAO BOA VENTURA N 268|0000||CIDADE VELHA| |0150|000708|JOSE RICARDO FARIAS MIRANDA|01058||72778881204||1501808||RIO ARANAI S/N|0000||CENTRO| |0150|000206|E F RABELO|01058|01552810000113||151911649|1501808||AV PRES GETULIO N 1901|0000||CENTRO| |0150|000663|MARCELO CLAYTON POÇA NUNES|01058||69498334234||1504901||RUA CORONEL RODRIGO AZEVEDO SN|0000||CENTRO| |0150|000107|ADAMOR FERNANDO BARBOSA PIMENTA|01058||48087645200||1504901||RUA CEL RODRIGUES LOPES AZEVEDO 444|0000||CENTRO| |0150|000560|RUI CLAUDIO CARDOSO TENORIO|01058||23457821291||1505809||AV MAGALHAES BARATA N 170|0000||CENTRO| |0150|000108|ODILON PANTOJA BARRA|01058||02945940272||1502103||RUA SAO JOAO BATISTA S/N|0000||BEIRA MAR| |0150|000223|RONILSON M CUNHA ME|01058|06284874000102||152382852|1505809||RUA 1 DE MAIO N 280|0000||BOSQUE| |0150|000128|M S FERREIRA|01058|06104344000127||152381996|1504505||RUA MARECHAL N 310|0000||CENTRO| |0150|000233|JOAO CEREJA DA COSTA|01058||19772343215||1501402||CJ CDP 11 RUA RIO AMAZONAS N 6 QD11|0000||VAL DE CANS| |0150|000332|FLAVIO OLIVEIRA DIAS|01058||39821331220||1501402||TV MARQUES DE HERVAL N 1995|0000||PEDREIRA| |0150|000290|JOAO COSTA SOUZA|01058||17594111249||1501402||PASS SAO PEDRO 650|0000||SACRAMENTA| |0150|000106|S TAVARES GARCIA|01058|10431118000128||152790446|1504901||AV CORONEL RODRIGO AZEVEDO N 70|0000||CENTRO| |0150|000171|J R T BARBOSA ME|01058|04629117000190||152324674|1501105||RUA BARAO DO RIO BRANCO N 446|0000||CENTRO| |0150|000181|RAIMUNDO RODRIGUES TRINDADE|01058||19930658220||1501105||AV BARAO DO RIO BRANCO SN|0000||COMERCIAL| |0150|000210|ODINEIA RODRIGUES TAVARES|01058||64557995268||1502806||VILA PONTE ALEGRE SN|0000||RIO CANATICU| |0150|000179|R J F LOBATO CIA LTDA|01058|83577593000180||151717028|1501105||AV BARAO DO RIO BRANCO 256|0000||CENTRO| |0150|000605|FREITAS COMERCIO LTDA|01058|12676182000102||153146150|1501105||RUA 25 DE MARCO SN|0000||CENTRO| |0150|000548|ADRIANA FERREIRA DE SOUZA|01058||96008652215||1501402||RUA SAO CLEMENTE N 150|0000||TAPANA| |0150|000465|HELAINE DE CASTRO VILHENA|01058||83655492200||1501402||AV PAULO COSTA 2739|0000||OUTEIRO| |0150|000456|EDMAR ARAUJO FREITAS|01058||13380141372||1501402||AV PAULO COSTA 3083|0000||OUTEIRO| |0150|000294|ANTONIO RODRIGUES PINTO|01058||17773164215||1501402||AV PAULO COSTA N 300 A|0000||OUTEIRO| |0150|000331|LUCENILDO SILVA CAMPOS|01058||17436028200||1501402||RUA SAO CLEMENTE N 10|0000||TAPANA| |0150|000503|DANIEL DO CARMO ALMEIDA MAGNO|01058||75936682234||1501402||AV FERNANDO GUILHON 177|0000||JURUNAS| |0150|000488|COMERCIAL MUPY LTDA|01058|84258763000127||151666253|1501402||RUA DOS TAMOIOS N 193|0000||JURUNAS| |0150|000493|J R F DOS SANTOS ME|01058|10843229000141||152863478|1501402||TV HENRIQUE DIAS N 136|0000||CABANAGEM| |0150|000523|WALTRUDE GUERREIRO FORMIGOSA|01058|13371642000149||153311240|1501402||AV BL 10 453|0000||OUTEIRO| |0150|000197|A V AMARAL|01058|07404710000126||152508350|1501402||AV BERNARDO SAYAO N 2239|0000||JURUNAS| |0150|000710|M R R NUNES|01058|02945410000130||152039317|1504901||FURO CAPITARIQUARA SN|0000||PRACUUBA| |0150|000155|LUIS CLAUDIO DOS SANTOS CARNEIRO|01058||11808853253||1504901||AV AUGUSTO MONTENEGRO SN|0000||CENTRO| |0150|000632|ISMAEL PROGENIO RAMOS JUNIOR|01058||88749886215||1504000||RUA BEIRA MAR SN|0000||CUBA| |0150|000709|MANOEL PANTOJA GONÇALVES|01058||08774200259||1504000||RUA BEIRA MAR SN|0000||CUBA| |0150|000633|MARCIO DOS PRAZERES TRINDADE ME|01058|11291163000197||152924108|1504000||RUA MARECHAL RANDON|0000||CENTRO| |0150|000209|JOAO VICENTE BRABO FERNANDES|01058||35505877249||1501105||RUA BARAO DO RIO BRANCO SN|0000||CENTRO| |0150|000271|J B DE AQUINO COMERCIO LTDA EPP|01058|12620269000150||153136596|1505106||TRAV RUI BARBOSA 506|0000||CENTRO| |0150|000267|MAX BRAGA MAIA|01058|11736036000154||152991280|1502806||ESMERALDA DA FONSECA N 76|0000||CENTRO| |0150|000338|SABOIA E SABOIA LTDA|01058|11438402000199||152943790|1505908||TV LAURO SODRE SN|0000||CENTRO| |0150|000341|SOUTO DUARTE|01058|10227727000160||152759867|1505908||TV DUQUE DE CAXIAS N 665|0000||CENTRO| |0150|000340|R G GOMES COMERCIO|01058|11370297000101||152935460|1505908||TV LAURO SODRE SN|0000||CENTRO| |0150|000065|J A OLIVEIRA EVANGELISTA COM ME|01058|11345831000111||152932054|1500503||RUA CEL JOSE JULIO ANDRADE 577|0000||BURITIZAL| |0150|000062|J B DA SILVA LUSTOSA ME|01058|04782265000140||152230025|1500503||TV JARI N 255|0000||NOVA VIDA| |0150|000458|GERALDO G GOMES COMERCIAL|01058|34631614000193||151458812|1505908||TV LAURO SODRE N 171|0000||CENTRO| |0150|000343|FRANCISCO PEREIRA DE SOUZA|01058||52110460210||1505908||TV LAURO SODRE N 825|0000||CABANAGEM| |0150|000337|J R L ALVES|01058|07487347000150||152471561|1505908||RUA DA REPUBLICA N 682|0000||CENTRO| |0150|000452|H S PIRES|01058|07364035000159||152454683|1505908||RUA CIPRIANO FARIAS 1520|0000||CENTRO| |0150|000451|M V RIBEIRO TEIXEIRA COM|01058|05698586000123||152318151|1505908||TRAV MARIO ALVAREZ 570|0000||MATURU| |0150|000450|ZENIL N DOS SANTOS|01058|06158614000182||152449850|1505908||TRAV SAO VIANA SN|0000||CENTRO| |0150|000211|RONALDO BARBOSA DA SILVA|01058|97549721000197||153423196|1504505||RUA SENADOR LEMOS N 123|0000||CENTRO| |0150|000253|SEBASTIAO BAIA PALHETA|01058||23457953287||1505809||RUA 02 DE FEVEREIRO N 691|0000||MURUCI| |0150|000713|EVALDO DE JESUS PROGENIO RAMOS|01058||44989873220||1504000||RIO JAPIIM|0000||CENTRO| |0150|000231|BENEDITO SAVIO PORTILHO COELHO|01058||15879380220||1504000||CJ ALDO ALMEIDA QD G N 40|0000||TAPANA| |0150|000232|RONALDO CORREA GONCALVES|01058||17593166287||1501402||CJ PROVIDENCIA QD13 RUA 5 CASA 212|0000||VAL DE CANS| |0150|000156|RAIMUNDO RODRIGUES PEREIRA|01058||05951682215||1501402||AV AUGUSTO MONTENEGRO 400|0000||CENTRO| |0150|000161|ENIO PIRES DE MORAES - ME|01058|01633764000187||151910456|1505700||TV CAPITAO JOAO TAVARES SN|0000||CENTRO| |0150|000347|RODOLFO ISLAN DUARTE SOUTO|01058||00367194201||1505908||TV LAURO SODRE N 457|0000||CENTRO| |0150|000336|A M L DA SILVA COMERCIO|01058|10762234000120||152850058|1505908||AV DUQUE DE CAXIAS N 282|0000||CENTRO| |0150|000342|M P DUARTE SOUTO COM TRANSP|01058|03661903000101||152102450|1505908||TV CORONEL ANTONIO GALVAO N 1358|0000||CENTRO| |0150|000314|WANDA RITA SENA DA CONCECAO OLIVEIR|01058||42674867272||1501402||CJ COHAB AV CONTORNO LESTE 05|0000||ICOARACI| |0150|000572|M V PENA COM VAREJISTA DE FRANGO ME|01058|13399908000161||153316748|1501402||CJ SIDERAL AV BRASIL 339|0000||SIDERAL| |0150|000413|PAULO FERREIRA DE DEUS|01058||11620765268||1501402||AV AJAX DE OLIVEIRA N 154|0000||BENGUI| |0150|000207|PAULO AFONSO DE CASTRO PAZ|01058||29499968253||1500305||AV MICAELA FERREIRA N 103|0000||CENTRO| |0150|000718|G J DA SILVA|01058|11737195000173||030357527|1600303||RUA LAOPOLDO MACHADO 2708|0000||BAIRRO DO TREM| |0150|000533|LINCON ALBUQUERQUE NEIVA|01058||18731953204||1600303||RUA ANTONIO LISBOA N 53|0000||CENTRO| |0150|000416|W A L ALMEIDA|01058|04993770000133||151089795|1501402||RUA NOSSA SRA DO O N 60|0000||MOSQUEIRO| |0150|000248|LINO DE S MENESES|01058|05578633000103|||1501402||RUA PIRES TEIXEIRA N 888|0000||MOSQUEIRO| |0150|000687|L M DO E S AGUIAR|01058|13821086000165||153393262|1501501||AV JOAQUIM PEREIRA DE QUEIROZ 1368|0000||CENTRO| |0150|000071|D RAMOS PINHEIRO COM ME|01058|02460490000134||152157166|1503101||AV SAO BENEDITO SN|0000||CENTRO| |0150|000070|R E TORRES BELO|01058|04852950000103||150823177|1503101||AV BEIRA MAR SN|0000||CENTRO| |0150|000165|ANTONIO PINHEIRO SILVA|01058||18505333268||1501105||AV. PRES. VARGAS, S/N|0000||CENTRO| |0150|000563|ALINE FERNANDA GOMES PIMENTA|01058||00628457219||1504901||RUA CEL RODRIGUES LOPES AZEVEDO 444|0000||CENTRO| |0150|000073|JACENILDO S DE LIMA|01058|11190384000179||152911839|1503101||AV SANTO ANTONIO SN|0000||FORTALEZA| |0150|000373|T F R CUSTODIO|01058|09221598000202||152882154|1501808||RUA MAGALHAES BARATA SN|0000||SANTA CRUZ| |0150|000185|VALDEMIR CARDOSO RODRIGUES|01058||00224062204||1501808||TRAV CAPITAO ASSIS 442|0000||CENTRO| |0150|000325|A F SILVA DE BEBIDAS ME|01058|05240813000172||152261184|1501402||AV PRINCIPAL N 73|0000||MAGUARI| |0150|000573|C PEREIRA COMERCIAL ME|01058|03102372000117||152546197|1501402||CJ MAGUARI ALAMEDA PRINCIPAL 38|0000||ICOARACI| |0150|000723|COMERCIAL INOUE|01058|04454243000150|||1500800||CONJ PAAR RUA OESTE QD 126 N 16|0000||PAAR| |0150|000199|OTONIEL RIBEIRO SOEIRO|01058||07212160210||1501402||RUA CORONEL JUVENCIO SARMENTO N1925|0000||ICOARACI| |0150|000189|ADENILDO ALVES DA FONSECA|01058||03925439234||1501402||RUA 2 DE DEZEMBRO QD 2 N 25 7 RUA|0000||ICOARACI| |0150|000498|MARIA JOSE DOS SANTOS MACHADO 2|01058||05661552220||1501402||CONJ BELA MANOELA TV UM N 5 B|0000||TENONE| |0150|000518|VALDINAR MIRANDA DE CASTRO|01058||72920254391||1501402||CONJ PANORAMAM XXI Q.06 , 01|0000||MANGUEIRAO| |0150|000601|COMERCIAL DE ALIMENTOS SERVE BEM LT|01058|11059264000218||152895973|1500800||TRAV SN 21 QUA 129 18|0000||MAGUARI| |0150|000505|CHAMMA COMERCIO DE ALIMENTOS LTDA|01058|11276173000153||152922059|1501402||AV BOULEVARD CASTILHO FRANCA 20|0000||CAMPINA| |0150|000309|MATEUS NUNES BRITO|01058||56970374220||1501402||RUA O DE ALMEIDA 599|0000||REDUTO| |0150|000224|FLORAMIN DE JESUS FONSECA COELHO|01058||01869159268||1501402||RUA SENADOR LEMOS N 630|0000||UMARIZAL| |0150|000350|FRANCISCO PEREIRA RODRIGUES|01058||57394342204||1502806||RUA DA MARAMBAIA N 55|0000||MARAMBAIA| |0150|000582|TEREZA DEJANIRA SANTANA DE CASTRO|01058||76682277253||1500305||RUA BARAO DO RIO BRANCO 121|0000||CENTRO| |0150|000728|MARIA KATIA PEREIRA DE MORAES|01058||42578205272||1504000||RUA JUSCELINO KUBSCHEK|0000||CUBA| |0150|000727|JORGE FERREIRA CASTILHO|01058||42543479287||1500305||RUA GENERALISSIMO DEODORO 190|0000||CUBANO| |0150|000116|MACIONALDE MORAES SANCHES|01058||65890825291||1505809||RUA DUQUE DE CAXIAS, 40|0000||CENTRO| |0150|000689|BEIRA RIO COMERCIO DE GAS LTDA|01058|03718170000285||152524517|1500305||AV BARAO DO RIO BRANCO 65|0000||CENTRO| |0150|000682|P DA S PAZ NETO ME|01058|13752525000125||153380225|1500305||AV MICHAELA FERREIRA N 23|0000||CENTRO| |0150|000193|ANTONIO GARCIA GOIS|01058||04006380291||1501402||AV MANGUEIRAO N 94|0000||BENGUI| |0150|000673|VAREJAO DA ECON COM DE ALIM LTDA|01058|10891426000136||152871438|1501402||RUA IDEPENDENCIA 300|0000||TAPANA| |0150|000191|MARIA DO SOCORRO LEMOS RODRIGUES|01058||48661090253||1501402||CONJ ALDO ALMEIDA AL ACAPU N 39|0000||TAPANA| |0150|000478|KALILO FERNANDES DE ARAUJO|01058||39854442268||1501402||RUA 08 DE MAIO BOX 4|0000||ICOARACI| |0150|000310|J J C BARBOSA ME|01058|12522075000111||153114568|1501402||RUA 8 DE MAIO N 888 A|0000||ICOARACI| |0150|000366|CARLOS ALBERTO S BARROSO|01058||29778662215||1501402||RUA 08 DE MAIO PASS STA MARIA 54|0000||ICOARACI| |0150|000221|ANA TEREZA RIBEIRO PALHETA|01058||11720875200||1501402||TV FRANKLIN MENEZES N 393|0000||OUTEIRO| |0150|000532|C E G COMERCIO LTDA|01058|04845275000187||152228373|1501402||RUA 08 DE SETEMBRO 155|0000||ICOARACI| |0150|000276|R O DUARTE|01058|03074147000114||152066926|1501402||AV. BERNARDO SAYAO 4324|0000||GUAMA| |0150|000175|LUIZ ANTONIO ALMEIDA MACHADO|01058||55877176234||1501105||RUA BARAO DO RIO BRANCO SN|0000||CENTRO| |0150|000079|M C DA SILVA SANTOS|01058|03783738000160||152111468|1503101||RUA CORONEL RABELO MENDES N 1587|0000||CENTRO| |0150|000059|EDNALDO AZEVEDO COSTA|01058|02522817000155||152011803|1500503||RUA PADRE AMANCIO PANTOJA 1721|0000||CENTRO| |0150|000514|M J SILVA SANTOS ME|01058|11534578000144||152958312|1503101||AV STO ANTONIO S/N|0000||CENTRO| |0150|000323|M F RODRIGUES JUNIOR|01058|03644478000142||152109323|1501402||AV DUQUE DE CAXIAS N 1580|0000||MARCO| |0150|000492|JOSE MARIA FERRAZ GOMES|01058|05364948000140||151152411|1501402||AV PEDRO MIRANDA 2512|0000||PEDREIRA| |0150|000526|SUPERMERCADO MIRANDA LTDA EPP|01058|00644293000140||151851166|1501402||PANORAMA XXI RUA PRI NCIPAL ,1 Q20|0000||MANGUEIRAO| |0150|000603|J I COMERCIO DE ALIMENTOS LTDA|01058|10918129000137||152875719|1501402||AV BERNARDO SAYAO 1466|0000||JURUNAS| |0150|000095|E D MONTEIRO ME|01058|02781913000118||152026584|1505809||RUA SEVERIANO DE MOURA N 235|0000||CENTRO| |0150|000138|AMIRALDO DE SOUZA GAMA|01058||15743926204||1501808||RUA DR ASSIS, 780|0000||CENTRO| |0150|000160|ELIELSON SILVA DAMASCENO|01058||67105807253||1505700||RUA CAPITAO JOAO TAVARES|0000||CARNAPIJO| |0150|000702|JOAO DO CARMO RIBEIRO DA SILVA|01058|13929998000155||030405483|1600303||AV MARCELO RIBEIRO N 30|0000||FAZENDINHA| |0150|F000056|R O DUARTE|01058|03074147000114||152066926|1501402||AV BERNARDO SAYAO 4324|0000||GUAMA| |0150|F000001|COMPANHIA MULLER DE BEBIDAS|01058|03485775000192||536022922111|3539301||ESTRADA MUNICIPAL PNG 349 S/N|0000||CHACARA TABOAO| |0150|F000077|IND BEBS JOAQUIM THOMAZ DE AQUINO|01058|31901382000310||034922148|2607901||ROD BR 101 SUL SN|0000||PRAZERES| |0150|F000100|VINHOS SALTON SA|01058|87547428000218||102656508116|3550308||AV LUIZ DRUMONT VILLARES N 390|0000||CARANDIRU| |0150|F000097|I R B TATUZINHO 03 FAZENDAS LTDA|01058|49629777000109||587012631117|3543907||AV PRESIDENTE KENNEDY N 1005|0000||JD KENNEDY| |0150|F000005|VITI VINICOLA CERESER LTDA NORDEST|01058|50930072000297||030507936|2607901||ROD.PE 60 Z.I.3 - 3747|0000||DIST. IND. SUAPE| |0190|CX|DESCRC DA CX| |0200|00019|CANTINA DO VALE 12X500|||CX|00|22060090||||000,00| |0200|00004|CANINHA 29 PET 12X500|||CX|00|22084000||||000,00| |0200|00007|ICE MARACUJA 51 24X275|||CX|00|22089000||||000,00| |0200|00008|ICE LIMAO 51 LATA|||CX|00|22089000||||000,00| |0200|00009|ICE MARACUJA 51 12X350 LATA|||CX|00|22089000||||000,00| |0200|00005|ICE KIWI 51 24X275|||CX|00|22089000||||000,00| |0200|00013|VODKA ROSKOFF 12X1 L|||CX|00|22086000||||000,00| |0200|00016|CANTINA DO VALE 12X880|||CX|00|22060090||||000,00| |0200|00072|SEM NOME|||CX|00|17011100||||000,00| |0200|00037|SEM NOME|||CX|00|17011100||||000,00| |0200|00015|CONHAQUE DOMUS 6X1L|||CX|00|22089000||||000,00| |0200|00021|VINHO DOM BOSCO 12X1|||CX|00|22042100||||000,00| |0200|00006|ICE LIMAO 51 24X275|||CX|00|22089000||||000,00| |0990|0000144| |A001|1| |A990|0000002| |C001|0| |C010|05866323000186|| |C190|55|01012012|31012012|00004|22084000||000143413,80| |C191|03485775000192|50|2102|000143413,80|000000000,00|000143413,80|001,6500|||000002366,33|| |C195|03485775000192|50|2102|000143413,80|000000000,00|000143413,80|007,6000|||000010899,44|| |C190|55|01012012|31012012|00005|22089000||000005253,00| |C191|03485775000192|50|2102|000005253,00|000000000,00|000005253,00|001,6500|||000000086,67|| |C195|03485775000192|50|2102|000005253,00|000000000,00|000005253,00|007,6000|||000000399,23|| |C190|55|01012012|31012012|00006|22089000||000006215,00| |C191|03485775000192|50|2102|000006215,00|000000000,00|000006215,00|001,6500|||000000102,55|| |C195|03485775000192|50|2102|000006215,00|000000000,00|000006215,00|007,6000|||000000472,34|| |C190|55|01012012|31012012|00007|22089000||000007927,15| |C191|03485775000192|50|2102|000007927,15|000000000,00|000007927,15|001,6500|||000000130,80|| |C195|03485775000192|50|2102|000007927,15|000000000,00|000007927,15|007,6000|||000000602,47|| |C190|55|01012012|31012012|00008|22089000||000021074,58| |C191|03485775000192|50|2102|000021074,58|000000000,00|000021074,58|001,6500|||000000347,73|| |C195|03485775000192|50|2102|000021074,58|000000000,00|000021074,58|007,6000|||000001601,67|| |C190|55|01012012|31012012|00009|22089000||000001584,55| |C191|03485775000192|50|2102|000001584,55|000000000,00|000001584,55|001,6500|||000000026,15|| |C195|03485775000192|50|2102|000001584,55|000000000,00|000001584,55|007,6000|||000000120,43|| |C190|55|01012012|31012012|00013|22086000||000003179,00| |C191|03485775000192|50|2102|000003179,00|000000000,00|000003179,00|001,6500|||000000052,45|| |C195|03485775000192|50|2102|000003179,00|000000000,00|000003179,00|007,6000|||000000241,60|| |C190|55|01012012|31012012|00015|22089000||000091307,43| |C191|50930072000297|50|2102|000091307,43|000000000,00|000091307,43|001,6500|||000001506,57|| |C195|50930072000297|50|2102|000091307,43|000000000,00|000091307,43|007,6000|||000006939,36|| |C190|55|01012012|31012012|00016|22060090||000123895,00| |C191|31901382000310|50|2102|000123895,00|000000000,00|000123895,00|001,6500|||000002044,27|| |C195|31901382000310|50|2102|000123895,00|000000000,00|000123895,00|007,6000|||000009416,02|| |C190|55|01012012|31012012|00019|22060090||000000900,00| |C191|03074147000114|50|2102|000000900,00|000000000,00|000000900,00|001,6500|||000000014,85|| |C195|03074147000114|50|2102|000000900,00|000000000,00|000000900,00|007,6000|||000000068,40|| |C190|55|01012012|31012012|00021|22042100||000000192,75| |C191|03074147000114|50|2102|000000192,75|000000000,00|000000192,75|001,6500|||000000003,18|| |C195|03074147000114|50|2102|000000192,75|000000000,00|000000192,75|007,6000|||000000014,65|| |C190|55|01012012|31012012|00037|17011100||000020916,00| |C191|49629777000109|50|2102|000020916,00|000000000,00|000020916,00|001,6500|||000000345,11|| |C195|49629777000109|50|2102|000020916,00|000000000,00|000020916,00|007,6000|||000001589,62|| |C190|55|01012012|31012012|00072|17011100||000041550,00| |C191|87547428000218|50|2102|000041550,00|000000000,00|000041550,00|001,6500|||000000685,58|| |C195|87547428000218|50|2102|000041550,00|000000000,00|000041550,00|007,6000|||000003157,80|| |C990|0000042| |D001|1| |D990|0000002| |F001|1| |F990|0000002| |M001|0| |M100|101|0|467408,26|1,6500|||7712,24|0|0|0|7712,24|1|0,00|7712,24| |M105|01|50|467408,26|0,00|467408,26|467408,26|||| |M200|0,00|0,00|0|0,00|0|0|0,00|0|0|0|0|0,00| |M500|101|0|467408,26|7,6000|||35523,03|0|0|0|35523,03|1|0,00|35523,03| |M505|01|50|467408,26|0|467408,26|467408,26|||| |M600|0,00|0,00|0|0,00|0|0|0,00|0|0|0|0|0,00| |M990|0000008| |1001|1| |1990|0000002| |9001|0| |9900|0000|0000001| |9900|0001|0000001| |9900|0100|0000001| |9900|0110|0000001| |9900|0140|0000001| |9900|0150|0000124| |9900|0190|0000001| |9900|0200|0000013| |9900|0990|0000001| |9900|1001|0000001| |9900|1990|0000001| |9900|9001|0000001| |9900|9990|0000001| |9900|9999|0000001| |9900|A001|0000001| |9900|A990|0000001| |9900|C001|0000001| |9900|C010|0000001| |9900|C190|0000013| |9900|C191|0000013| |9900|C195|0000013| |9900|C990|0000001| |9900|D001|0000001| |9900|D990|0000001| |9900|F001|0000001| |9900|F990|0000001| |9900|M001|0000001| |9900|M100|0000001| |9900|M105|0000001| |9900|M200|0000001| |9900|M500|0000001| |9900|M505|0000001| |9900|M600|0000001| |9900|M990|0000001| |9900|9900|35| |9990|38| |9999|240| fwh 9.03+xharbour,bcc55,xdev

Verdade parceiro, e ainda tem cliente que nao quer pagar manutencao....... Menos de 1 salario minimo por mes to fora....nem comeco o levantamento......quem quiser fazer que faca, mas minha empresa nao faz!! No inicio é aquela humildade por parte do cliente (estou comecando, ou estou em um momento ruim....coisas do tipo) mas depois temos que ouvir e muito, recebemos pressao de tudo o que é lado, bronca de gerente, bronca do patrao , bronca do contador, bronca de operador......rs fwh 9.03+xharbour,bcc55,xdev

Vc quer um arquivo txt pis-cofins é isso? Se for posso te enviar.....meu sistema gera todo mes......que dor de cabeca viu!? fwh 9.03+xharbour,bcc55,xdev

Gerando o mfd vc pode gerar o cat52, o sped ou o sintegra. Dai basta enviar para o contador que ele fará a importação destes dados. Depois importa tbm o meu sped (entradas e saidas de nfe). Dai eles na contabilidade colocam mais algumas informacoes e geram o sped completinho. Eu faco dessa forma ..... fwh 9.03+xharbour,bcc55,xdev

Existe um aplicativo fornecido pelos fabricantes no caso bematech é o winmfd2, ele gera a fita detalhe em arquivo, arquivos cat52 e ate mesmo sintegra e sped. A daruma fornec um parecido. Nao sei se era isso que vc queria......enfim....espero ter ajudado fwh 9.03+xharbour,bcc55,xdev

Bom dia amigo, obrigado pela sua atenção..... Na verdade uso esta mesma rotina que peguei por aqui mesmo......mas nao escapo do ª e do º do ç e por ai vai..... fwh 9.03+xharbour,bcc55,xdev

Pessoal como faço para nao aceitar em qualquer get do meu sistema caracters estranhos para o xml, tais como o alt 166,167, acentos e etc. Os contadores reclamam pq o xml n abre quando contem tais caracteres.......mandam voltar os aquivos, fazem terrorismo com os empresarios......enfim acho que a maioria vivencia isso.....so sobra pra nos como sempre..... agradeco a atencao fwh 9.03+xharbour,bcc55,xdev

Pessoal como faço para nao aceitar em qualquer get do meu sistema caracters estranhos para o xml, tais como o alt 166,167, acentos e etc. Os contadores reclamam pq o xml n abre quando contem tais caracteres.......mandam voltar os aquivos, fazem terrorismo com os empresarios......enfim acho que a maioria vivencia isso.....so sobra pra nos como sempre..... agradeco a atencao fwh 9.03+xharbour,bcc55,xdev

Marcelo muito obrigado pela sua atencao!!! Valeu mesmo.....saiu certinho. fwh 9.03+xharbour,bcc55,xdev

Boa noite marcelo, primeiramente obrigado pela atencao.... Como se aplica a sua dica?....testei mas nao deu certo, acredito que nao tenha acertado a implementar. Estou precisando finalizar um cupom com varias formas de pagamento diferente. Estou fazendo como mostra logo abaixo, mas ele sempre fecha como dinheiro.... : IF !GrvCmdFis(13,{"Dinheiro","D","$",StrTran(Str(nDesconto,10,2),".",","),; StrTran(AllTrim(Str(M_VLDI*100,10)),".",","),"Doc. "+m_doc+" "+m_nomCLI+" Operador:"+m_nomusu+" Obrigado e volte sempre !!!"}) RETURN nil ENDIF *TESTAR NA IMPRESSORA 2 FORMAS DE PAGTOS IF M_VLC1>0 IF !GrvCmdFis(13,{"Cartao","D","$",StrTran(Str(nDesconto,10,2),".",","),; StrTran(AllTrim(Str(M_VLc1*100,10)),".",",")," Obrigado, Volte sempre !!!"}) RETURN nil ENDIF ENDIF DLL32 FUNCTION BmFechaCup( FormaPgto AS STRING,; Acrescimo AS STRING,; TipoAcresc AS STRING,; ValorAcresc AS STRING,; ValorPago AS STRING,; Mensagem AS STRING ) AS LONG PASCAL ; FROM "Bematech_FI_FechaCupom" LIB xDll fwh 9.03+xharbour,bcc55,xdev

Bom dia a tds, gostaria de saber se na finalizacao de um cupom fiscal bematech tenho que passar como parametro o texto igual como está na máquina ou existe como finalizar com um indice ?(como antigamente). Tipo 01-dinheiro 02-visa cartao 03-cheque...... Tenho este comando: IF !GrvCmdFis(13,{"Dinheiro","D","$",StrTran(Str(nDesconto,10,2),".",","),; StrTran(AllTrim(Str(nValPago*100,10)),".",","),"Obrigado, Volte sempre !!!"}) RETURN nil ENDIF DLL32 FUNCTION BmFechaCup( FormaPgto AS STRING,; Acrescimo AS STRING,; TipoAcresc AS STRING,; ValorAcresc AS STRING,; ValorPago AS STRING,; Mensagem AS STRING ) AS LONG PASCAL ; FROM "Bematech_FI_FechaCupom" LIB xDll fwh 9.03+xharbour,bcc55,xdev

Bom dia a tds, gostaria de saber se na finalizacao de um cupom fiscal bematech tenho que passar como parametro o texto igual como está na máquina ou existe como finalizar com um indice ?(como antigamente). Tipo 01-dinheiro 02-visa cartao 03-cheque...... Tenho este comando: IF !GrvCmdFis(13,{"Dinheiro","D","$",StrTran(Str(nDesconto,10,2),".",","),; StrTran(AllTrim(Str(nValPago*100,10)),".",","),"Obrigado, Volte sempre !!!"}) RETURN nil ENDIF DLL32 FUNCTION BmFechaCup( FormaPgto AS STRING,; Acrescimo AS STRING,; TipoAcresc AS STRING,; ValorAcresc AS STRING,; ValorPago AS STRING,; Mensagem AS STRING ) AS LONG PASCAL ; FROM "Bematech_FI_FechaCupom" LIB xDll fwh 9.03+xharbour,bcc55,xdev

Blz pura judsom.....obrigado pela atencao.....ajudou muito....eu vou so inverter , no caso primeiro chamarei a rotina de impressao gerencial e apos eu solto o cupom fiscal. forte abraco fwh 9.03+xharbour,bcc55,xdev

Boa tarde a tds, Nao posso cancelar o cupom anterior apos um relatorio gerencial? No meu sistema apos o fechamento da venda em cupom fiscal, a mesma ecf emite em seguida um relatorio gerencial com os dados para expedicao.....porem nao estou conseguindo cancelar o cupom anterior apos isso..... fwh 9.03+xharbour,bcc55,xdev