rclipper

Amigo jorge O meu e-mail é: tomazella@hotmail.com Grato Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caro amigo Jorge Andrade Olhei minha caixa de e-mail, não recebi nada referente a minha dúvida de Configurar o xDev0.70. Por favo, caso o amigo pode me ajudar, ficarei muito grato. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Instalei o xDev versão 0.7 e estou com uma dúvida. Como faço para vincular o compilador e as pastas gerais ? Obs.: é como as configurações do xDev 0.28 ? Grato a todos. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Instalei o xDev versão 0.7 e estou com uma dúvida. Como faço para vincular o compilador e as pastas gerais ? Obs.: é como as configurações do xDev 0.28 ? Grato a todos. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Vailton Renato Como consigo a versão 0.70 do xDev ? O amigo teria disponível o arquivo da versão 0.70 do xDev, para me enviar ou onde posso efetuar o donwload ? Caso tenha e possa me enviar, envia no: tomazella@hotmail.com Grato pela atenção. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caro amigo Evandro Consegui entrar como administrador no Windows 7, grato. Obs.: o amigo teria esses arquivos abaixo em seu micro, olhando o anterior, não tenho mais. C:\T3MP.BAT C:\xD3v-347.BAT Caso tenha, por favor envia para: tomazella@hotmail.com Grato, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Evandro Uma pergunta, até me desculpa por ser ingenua. Como faço para entrar como administrador no Windows 7 ? Grato Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Prezados Amigos Por favor, preciso de uma ajuda dos amigos. Tive que transferir meus fontes para outro micro que utiliza o Windows 7, e após a instalação do xDev028, aparece a seguinte mensagem: C:\T3MP.BAT C:\xD3v-347.BAT ambos não existe no C:\ Como consigo corrigir esse erro, que antes não aparecia no Windows XP ? Grato a todos. Atenciosamente, Renato Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Prezados Amigos Por favor, preciso de uma ajuda dos amigos. Tive que transferir meus fontes para outro micro que utiliza o Windows 7, e após a instalação do xDev028, aparece a seguinte mensagem: C:\T3MP.BAT C:\xD3v-347.BAT ambos não existe no C:\ Como consigo corrigir esse erro, que antes não aparecia no Windows XP ? Grato a todos. Atenciosamente, Renato Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Vagner Grato pela ajuda, apenas uma dúvida. Sei que o formato é: dd/mm/yy dd = dia mm = mês yy = ano Como faço para gravar a Data + Mês + Ano ? obs.: em matéria de trabalhar com Data fico a desejar. Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos Por favor, preciso de uma orientação. Como faço para uma rotina para Condição pagamento programado? Exemplo: - pagamento somente para os dias: 10, 20 ou 30 de cada mês. Como informo ao sistema que após gerar o Boleto, a data de vencimento seja o dia eprogramado + mês seguinte + ano? Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos Por favor, preciso de uma orientação. Como faço para uma rotina para Condição pagamento programado? Exemplo: - pagamento somente para os dias: 10, 20 ou 30 de cada mês. Como informo ao sistema que após gerar o Boleto, a data de vencimento seja o dia eprogramado + mês seguinte + ano? Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Vagner Grato pelo esclarecimento. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Estou com uma dúvida básica. Preciso gravar no Banco de Dados, vínculos de pedidos, exemplo: Tenho os pedidos: 001, 003, 005, 009 do mesmo cliente. Para gravar os pedidos seria assim: REPLACE VINCPED WITH VINCPED+VINCPED Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Estou com uma dúvida básica. Preciso gravar no Banco de Dados, vínculos de pedidos, exemplo: Tenho os pedidos: 001, 003, 005, 009 do mesmo cliente. Para gravar os pedidos seria assim: REPLACE VINCPED WITH VINCPED+VINCPED Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Kleyber Derick Agradeço a ajuda, mas não alterou a fonte da Impressão. Preciso passar para Fonte "08" no máximo, mas não consigo. Grato, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos Tenho essa rotina para impressão de documentos: oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:lZeraBfr := .F. // Pulo da Página oPrn:StartPage() @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo //Formas de pagamento @18,01 SAY DTOC(vIt41)+" R$ "+alltrim(TRANS(vIt40, "@E 999,999.99")) OF oPrn @18,30 SAY DTOC(vIt66)+" R$ "+alltrim(TRANS(vIt65, "@E 999,999.99")) OF oPrn @18,50 SAY DTOC(vIt72)+" R$ "+alltrim(TRANS(vIt71, "@E 999,999.99")) OF oPrn @19,01 SAY DTOC(vIt43)+" R$ "+alltrim(TRANS(vIt42, "@E 999,999.99")) OF oPrn @19,30 SAY DTOC(vIt68)+" R$ "+alltrim(TRANS(vIt67, "@E 999,999.99")) OF oPrn @19,50 SAY DTOC(vIt74)+" R$ "+alltrim(TRANS(vIt73, "@E 999,999.99")) OF oPrn @20,01 SAY DTOC(vIt45)+" R$ "+alltrim(TRANS(vIt44, "@E 999,999.99")) OF oPrn @20,30 SAY DTOC(vIt70)+" R$ "+alltrim(TRANS(vIt69, "@E 999,999.99")) OF oPrn @20,50 SAY DTOC(vIt76)+" R$ "+alltrim(TRANS(vIt75, "@E 999,999.99")) OF oPrn @76,086 SAY cNFisc OF oPrn // NÚMERO oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem ImpSpool(".\TICKET.TXT", cTkPort) id=code>id=code>Gostaria de saber,como faço para diminuir o tamanho das fontes. Grato, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos Tenho essa rotina para impressão de documentos: oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:lZeraBfr := .F. // Pulo da Página oPrn:StartPage() @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo //Formas de pagamento @18,01 SAY DTOC(vIt41)+" R$ "+alltrim(TRANS(vIt40, "@E 999,999.99")) OF oPrn @18,30 SAY DTOC(vIt66)+" R$ "+alltrim(TRANS(vIt65, "@E 999,999.99")) OF oPrn @18,50 SAY DTOC(vIt72)+" R$ "+alltrim(TRANS(vIt71, "@E 999,999.99")) OF oPrn @19,01 SAY DTOC(vIt43)+" R$ "+alltrim(TRANS(vIt42, "@E 999,999.99")) OF oPrn @19,30 SAY DTOC(vIt68)+" R$ "+alltrim(TRANS(vIt67, "@E 999,999.99")) OF oPrn @19,50 SAY DTOC(vIt74)+" R$ "+alltrim(TRANS(vIt73, "@E 999,999.99")) OF oPrn @20,01 SAY DTOC(vIt45)+" R$ "+alltrim(TRANS(vIt44, "@E 999,999.99")) OF oPrn @20,30 SAY DTOC(vIt70)+" R$ "+alltrim(TRANS(vIt69, "@E 999,999.99")) OF oPrn @20,50 SAY DTOC(vIt76)+" R$ "+alltrim(TRANS(vIt75, "@E 999,999.99")) OF oPrn @76,086 SAY cNFisc OF oPrn // NÚMERO oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem ImpSpool(".\TICKET.TXT", cTkPort) id=code>id=code>Gostaria de saber,como faço para diminuir o tamanho das fontes. Grato, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Por favor, preciso de uma ajuda dos amigos. Como faço uma rotina, após digitar o Código de um KIT de itens, o sistema possa acrescentar um após outro, por exemplo: Kit 1 tem: lapis, borracha e caneta. Kit 2 tem: pasta, caderno e livro. Como faço uma rotina, conforme for digitando um Kit após outro, o sistema vai incluindo. Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Por favor, preciso de uma ajuda dos amigos. Como faço uma rotina, após digitar o Código de um KIT de itens, o sistema possa acrescentar um após outro, por exemplo: Kit 1 tem: lapis, borracha e caneta. Kit 2 tem: pasta, caderno e livro. Como faço uma rotina, conforme for digitando um Kit após outro, o sistema vai incluindo. Grato pela ajuda. Atenciosamente, Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Estou com um problema de salto de página, não consigo entender porque o sistema não faz o salto, abaixo o meu código: Obs.: quando completa a quantidade de 28 itens, o sistema tem de fazer o salto, mas isso não ocorre. Alguém podeira me ajudar ? //--> Impressão da Nota Fiscal <--// oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:lZeraBfr := .F. // Pulo da Página oPrn:StartPage() @02,085 SAY ALLTRIM(cNFis) OF oPrn // NÚMERO @03,063 SAY "X" OF oPrn // N/F de (X)Saida ( )Endtrada @08,001 SAY LEFT(cNat,23) OF oPrn // Natureza da opera‡Æo @08,027 SAY TRANS(vIt27, "@E 9,999") OF oPrn // CFOP @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo @14,001 SAY ALLTRIM(vEnd) OF oPrn @14,048 SAY ALLTRIM(vUF) OF oPrn @14,073 SAY ALLTRIM(cCep) OF oPrn @16,001 SAY ALLTRIM(vIt06) OF oPrn // Cidade-UF @16,040 SAY LEFT(vIt07,15) OF oPrn // Telefone @16,058 SAY cUf OF oPrn // UF @16,062 SAY ALLTRIM(vIt09) OF oPrn // Insc. Est. @16,087 SAY LEFT(TIME(),5) OF oPrn // Hora mL := 26 nTtProd := 0 nTtPeso := 0 nTtNota := 0 TtNdes:=0 nItem := 1 nVrIcms := 0 nBsIcms := 0 nTtBase := 0 nPag := 1 FOR nNtIt := 1 TO LEN(aVdItem) cMarca:= "" nPrNot:=0 nNtDes:=0 nQtEmb:=10 vIt16 := 0 cUnd := "UND" nIcms:=0 nReduc:=0 lBom := .T. cDescri := aVdItem[nNtIt, 3] c_NCM := SPACE(10) VndPrdUnd(aVdItem[nNtIt, 2],@cDescri,@vIt16,@cMarca,@nPrNot,@nNtDes,@nQtEmb,@nIcms,@nReduc,nil,nil,@cUnd, @lBom, @vIt27, cUf, @c_NCM) vIt16 := (vIt16 * aVdItem[nNtIt, 4]) nPrUni := aVdItem[nNtIt, 5] @ mL,001 SAY STRZERO(VAL(aVdItem[nNtIt, 2]),5) OF oPrn @ mL,008 SAY LEFT(aVdItem[nNtIt, 3],35) OF oPrn @ mL,051 SAY ALLTRIM(cUnd) OF oPrn @ mL,056 SAY TRANS(aVdItem[nNtIt, 4],"@E 99999") OF oPrn @ mL,069 SAY TRANS(nPrUni,IIF(".999"$cPicPre,"@E 99999.99","@E 99999.99")) OF oPrn @ mL,080 SAY TRANS(nPrUni * aVdItem[nNtIt, 4],IIF(".999"$cPicPre,"@E 999999.999","@E 9999999.99")) OF oPrn @ mL,091 SAY TRANS(nIcms,"@E 99")+"%" OF oPrn mL ++ nTtNota += (aVdItem[nNtIt, 4] * nPrUni) nTtProd += aVdItem[nNtIt, 4] ; nTtPeso += vIt16 TtNdes += (aVdItem[nNtIt, 4]*nNtDes) IF nReduc = 0 nTtIcms := ((nPrUni * aVdItem[nNtIt, 4]) / 100) * nIcms if nIcms > 0 nBsIcms := (nPrUni * aVdItem[nNtIt, 4]) else nBsIcms := 0 endif ELSE nQtTot := (nPrUni * aVdItem[nNtIt, 4]) nTtIcms := (((nQtTot - ((nQtTot / 100) * nReduc)) / 100) * nIcms) nBsIcms := (nQtTot - ((nQtTot / 100) * nReduc)) ENDIF nVrIcms += nTtIcms nTtBase += nBsIcms nItem++ IF nItem >= 28 //aqui faz o salto p/ próxima página oPrn:EndPage() oPrn:StartPage() nItem := 1 nPag ++ @02,085 SAY ALLTRIM(cNFisc) OF oPrn // NÚMERO @03,063 SAY "X" OF oPrn // N/F de (X)Saida ( )Endtrada @08,001 SAY ALLTRIM(cNatu) OF oPrn // Natureza da opera‡Æo @08,027 SAY TRANS(vIt27, "@E 9,999") OF oPrn // CFOP @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo @14,001 SAY ALLTRIM(vIt04) OF oPrn @14,048 SAY ALLTRIM(vIt05) OF oPrn @14,073 SAY ALLTRIM(cCep) OF oPrn @16,001 SAY ALLTRIM(vIt06) OF oPrn // Cidade-UF @16,040 SAY LEFT(vIt07,15) OF oPrn // Telefone @16,058 SAY cUf OF oPrn // UF @16,062 SAY ALLTRIM(vIt09) OF oPrn // Insc. Est. @16,087 SAY LEFT(TIME(),5) OF oPrn // Hora mL := 26 ENDIF NEXT @50,008 SAY TRANS(nTtBase,"@E 999,999.99") OF oPrn @50,020 SAY TRANS(nVrIcms,"@E 999,999.99") OF oPrn @50,085 SAY TRANS(nTtNota,"@E 999,999.99") OF oPrn @52,085 SAY TRANS(nTtNota-nDesc,"@E 999,999.99") OF oPrn // DADOS DA TRANSPORTADORA @56,001 SAY LEFT(c_Nome,30) OF oPrn @56,055 SAY ALLTRIM(STR(ASCAN(a_Fret,c_Fret))) OF oPrn @56,060 SAY ALLTRIM(c_Plac) OF oPrn @56,073 SAY ALLTRIM(c_Est1) OF oPrn @56,077 SAY ALLTRIM(c_Cnpj) OF oPrn @58,001 SAY LEFT(c_Endr,35) OF oPrn @58,043 SAY ALLTRIM(c_Cida) OF oPrn @58,073 SAY ALLTRIM(c_Est2) OF oPrn @58,077 SAY ALLTRIM(c_IEst) OF oPrn @61,008 SAY TRANS(n_Vols, "99999") OF oPrn @61,017 SAY ALLTRIM(c_Espe) OF oPrn @61,033 SAY ALLTRIM(c_Marc) OF oPrn @61,045 SAY ALLTRIM(c_Nume) OF oPrn @61,070 SAY TRANS(n_Pesb, "@E 99,999.999") OF oPrn @61,085 SAY TRANS(n_Pesl, "@E 99,999.999") OF oPrn mTtL1 := MLCOUNT(cObsNF,30) DECLARE aObse[mTtL1] FOR n_Lin := 1 TO mTtL1 aObse[n_Lin]:= MEMOLINE(cObsNF, 30, n_Lin) NEXT IF mTtL1 >= 1 ; @63,02 SAY aObse[1] OF oPrn ; ENDIF IF mTtL1 >= 2 ; @64,02 SAY aObse[2] OF oPrn ; ENDIF IF mTtL1 >= 3 ; @65,02 SAY aObse[3] OF oPrn ; ENDIF IF mTtL1 >= 4 ; @66,02 SAY aObse[4] OF oPrn ; ENDIF @76,086 SAY cNFisc OF oPrn // NÚMERO oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem ImpSpool(".\TICKET.TXT", cTkPort) id=code>id=code>Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Caros amigos. Estou com um problema de salto de página, não consigo entender porque o sistema não faz o salto, abaixo o meu código: Obs.: quando completa a quantidade de 28 itens, o sistema tem de fazer o salto, mas isso não ocorre. Alguém podeira me ajudar ? //--> Impressão da Nota Fiscal <--// oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:lZeraBfr := .F. // Pulo da Página oPrn:StartPage() @02,085 SAY ALLTRIM(cNFis) OF oPrn // NÚMERO @03,063 SAY "X" OF oPrn // N/F de (X)Saida ( )Endtrada @08,001 SAY LEFT(cNat,23) OF oPrn // Natureza da opera‡Æo @08,027 SAY TRANS(vIt27, "@E 9,999") OF oPrn // CFOP @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo @14,001 SAY ALLTRIM(vEnd) OF oPrn @14,048 SAY ALLTRIM(vUF) OF oPrn @14,073 SAY ALLTRIM(cCep) OF oPrn @16,001 SAY ALLTRIM(vIt06) OF oPrn // Cidade-UF @16,040 SAY LEFT(vIt07,15) OF oPrn // Telefone @16,058 SAY cUf OF oPrn // UF @16,062 SAY ALLTRIM(vIt09) OF oPrn // Insc. Est. @16,087 SAY LEFT(TIME(),5) OF oPrn // Hora mL := 26 nTtProd := 0 nTtPeso := 0 nTtNota := 0 TtNdes:=0 nItem := 1 nVrIcms := 0 nBsIcms := 0 nTtBase := 0 nPag := 1 FOR nNtIt := 1 TO LEN(aVdItem) cMarca:= "" nPrNot:=0 nNtDes:=0 nQtEmb:=10 vIt16 := 0 cUnd := "UND" nIcms:=0 nReduc:=0 lBom := .T. cDescri := aVdItem[nNtIt, 3] c_NCM := SPACE(10) VndPrdUnd(aVdItem[nNtIt, 2],@cDescri,@vIt16,@cMarca,@nPrNot,@nNtDes,@nQtEmb,@nIcms,@nReduc,nil,nil,@cUnd, @lBom, @vIt27, cUf, @c_NCM) vIt16 := (vIt16 * aVdItem[nNtIt, 4]) nPrUni := aVdItem[nNtIt, 5] @ mL,001 SAY STRZERO(VAL(aVdItem[nNtIt, 2]),5) OF oPrn @ mL,008 SAY LEFT(aVdItem[nNtIt, 3],35) OF oPrn @ mL,051 SAY ALLTRIM(cUnd) OF oPrn @ mL,056 SAY TRANS(aVdItem[nNtIt, 4],"@E 99999") OF oPrn @ mL,069 SAY TRANS(nPrUni,IIF(".999"$cPicPre,"@E 99999.99","@E 99999.99")) OF oPrn @ mL,080 SAY TRANS(nPrUni * aVdItem[nNtIt, 4],IIF(".999"$cPicPre,"@E 999999.999","@E 9999999.99")) OF oPrn @ mL,091 SAY TRANS(nIcms,"@E 99")+"%" OF oPrn mL ++ nTtNota += (aVdItem[nNtIt, 4] * nPrUni) nTtProd += aVdItem[nNtIt, 4] ; nTtPeso += vIt16 TtNdes += (aVdItem[nNtIt, 4]*nNtDes) IF nReduc = 0 nTtIcms := ((nPrUni * aVdItem[nNtIt, 4]) / 100) * nIcms if nIcms > 0 nBsIcms := (nPrUni * aVdItem[nNtIt, 4]) else nBsIcms := 0 endif ELSE nQtTot := (nPrUni * aVdItem[nNtIt, 4]) nTtIcms := (((nQtTot - ((nQtTot / 100) * nReduc)) / 100) * nIcms) nBsIcms := (nQtTot - ((nQtTot / 100) * nReduc)) ENDIF nVrIcms += nTtIcms nTtBase += nBsIcms nItem++ IF nItem >= 28 //aqui faz o salto p/ próxima página oPrn:EndPage() oPrn:StartPage() nItem := 1 nPag ++ @02,085 SAY ALLTRIM(cNFisc) OF oPrn // NÚMERO @03,063 SAY "X" OF oPrn // N/F de (X)Saida ( )Endtrada @08,001 SAY ALLTRIM(cNatu) OF oPrn // Natureza da opera‡Æo @08,027 SAY TRANS(vIt27, "@E 9,999") OF oPrn // CFOP @11,01 SAY ALLTRIM(vIt02) OF oPrn // Cliente @11,62 SAY TRANS(ALLTRIM(vIt08),CpfCgcPic(NIL, vIt08)) OF oPrn // CNPJ @11,85 SAY DTOC(vIt48) OF oPrn // EmissÆo @14,001 SAY ALLTRIM(vIt04) OF oPrn @14,048 SAY ALLTRIM(vIt05) OF oPrn @14,073 SAY ALLTRIM(cCep) OF oPrn @16,001 SAY ALLTRIM(vIt06) OF oPrn // Cidade-UF @16,040 SAY LEFT(vIt07,15) OF oPrn // Telefone @16,058 SAY cUf OF oPrn // UF @16,062 SAY ALLTRIM(vIt09) OF oPrn // Insc. Est. @16,087 SAY LEFT(TIME(),5) OF oPrn // Hora mL := 26 ENDIF NEXT @50,008 SAY TRANS(nTtBase,"@E 999,999.99") OF oPrn @50,020 SAY TRANS(nVrIcms,"@E 999,999.99") OF oPrn @50,085 SAY TRANS(nTtNota,"@E 999,999.99") OF oPrn @52,085 SAY TRANS(nTtNota-nDesc,"@E 999,999.99") OF oPrn // DADOS DA TRANSPORTADORA @56,001 SAY LEFT(c_Nome,30) OF oPrn @56,055 SAY ALLTRIM(STR(ASCAN(a_Fret,c_Fret))) OF oPrn @56,060 SAY ALLTRIM(c_Plac) OF oPrn @56,073 SAY ALLTRIM(c_Est1) OF oPrn @56,077 SAY ALLTRIM(c_Cnpj) OF oPrn @58,001 SAY LEFT(c_Endr,35) OF oPrn @58,043 SAY ALLTRIM(c_Cida) OF oPrn @58,073 SAY ALLTRIM(c_Est2) OF oPrn @58,077 SAY ALLTRIM(c_IEst) OF oPrn @61,008 SAY TRANS(n_Vols, "99999") OF oPrn @61,017 SAY ALLTRIM(c_Espe) OF oPrn @61,033 SAY ALLTRIM(c_Marc) OF oPrn @61,045 SAY ALLTRIM(c_Nume) OF oPrn @61,070 SAY TRANS(n_Pesb, "@E 99,999.999") OF oPrn @61,085 SAY TRANS(n_Pesl, "@E 99,999.999") OF oPrn mTtL1 := MLCOUNT(cObsNF,30) DECLARE aObse[mTtL1] FOR n_Lin := 1 TO mTtL1 aObse[n_Lin]:= MEMOLINE(cObsNF, 30, n_Lin) NEXT IF mTtL1 >= 1 ; @63,02 SAY aObse[1] OF oPrn ; ENDIF IF mTtL1 >= 2 ; @64,02 SAY aObse[2] OF oPrn ; ENDIF IF mTtL1 >= 3 ; @65,02 SAY aObse[3] OF oPrn ; ENDIF IF mTtL1 >= 4 ; @66,02 SAY aObse[4] OF oPrn ; ENDIF @76,086 SAY cNFisc OF oPrn // NÚMERO oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem ImpSpool(".\TICKET.TXT", cTkPort) id=code>id=code>Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Ladinilson Por favor, gostaria muito se pudesse me ajudar enviando a Rotina no meu e-mail. otanec@hotmail.com Grato. Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.

Amigo Marciano Mesmo que seja utilizado o PHP apenas para pesquisa, inclusão ou alteração de algo pela a WEB, implica em algo no Sistema original ? Grato. Renato Clipper5.3, Blinker7.0 e FWH25 p/ Clipper.