1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

[RESOLVIDO] Duplicata Mercantil, é possível?

Discussão em 'EMS , HCM e Totvs 11' iniciado por noffabr, Setembro 25, 2015.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. noffabr

    noffabr Membro Participativo

    Bom dia pessoa,

    Preciso criar uma duplicata mercantil nesse estilo:

    [​IMG]

    Muito complicado?
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Eu desenharia em excel ou em word, salvando como template, depois usaria as APIs pra preencher e imprimir.
    noffabr curtiu isso.
  3. noffabr

    noffabr Membro Participativo

    Como usar as API's pra preencher e imprimir?

    Ja tenho em excel.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    isso, veja na documentação das APIs como vc coloca campos, nome de variaveis
    noffabr curtiu isso.
  5. noffabr

    noffabr Membro Participativo

    Certo, acho que é um pouco complicado pra mim!

    Vou tentar por um caminho que acho que é mais fácil;

    hoje gero uma duplicata de venda com um layout simples, não me atende mais;

    [​IMG]


    Gostaria de saber se é possível adicionar um logo e linhas nele, porque hoje sai bem simples:



    [​IMG]



    Tá Complicado!
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Então faz como a nota fiscal:
    1) no seu layout vc cria campos nas celulas que quer preencher, por exemplo: #dataVencimento, #NomeCliente, #Valor e assim por diante;
    2) Salva esse documento como um RTF;
    3) Faz um programa que seria mais ou menos assim:
    Código:
    define variable modelo as longchar no-undo.
    
    find first tit_acr no-lock no-error.
    
    copy-lob from file 'c:\temp\MODELO.RTF' to modelo.
    
    
    assign modelo = replace(modelo,'#dataVencimento', string(tit_acr.dat_vencto_tit_acr,'99/99/9999')).
    assign modelo = replace(modelo,'#valor',string(tit_acr.val_sdo_tit_acr,'>>>,>>>,>>9.99')).
    
    copy-lob modelo to file substitute('c:\temp\duplicata&1&2.rtf',tit_acr.cod_tit_acr,tit_acr.cod_parcela).
    
    4) Agora vc usa a api do word pra ler esse .rtf e mandar pra impressora ou abrir na tela.
    noffabr curtiu isso.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página