- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Campo Informações Complementares - DANFE
×
Linguagem de Programação ADVPL
Perguntas Campo Informações Complementares - DANFE
- MDKDU
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 94
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25067
por MDKDU
Campo Informações Complementares - DANFE foi criado por MDKDU
Galera
Bom dia,
Preciso adicionar 650 caracteres no campo da Informações Complementares da DANFE, porem para isso será necessário customizar.
Tenho que adicionar 650 caracteres neste campo.
Alguém teria um fonte com esta customização ou a melhor forma de fazer?
Caso possam me ajudar ou dar alguma dica agradeço.
Abrs
Bom dia,
Preciso adicionar 650 caracteres no campo da Informações Complementares da DANFE, porem para isso será necessário customizar.
Tenho que adicionar 650 caracteres neste campo.
Alguém teria um fonte com esta customização ou a melhor forma de fazer?
Caso possam me ajudar ou dar alguma dica agradeço.
Abrs
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25173
por admin
Respondido por admin no tópico Campo Informações Complementares - DANFE
650 Caracteres ? eita vai imprimir a biblia ahhaha, brincadeira, cara a mensagem é fixa ? se sim vc pode usar o ponto de entrada
#include 'protheus.ch'
#include 'tbiconn.ch'
#include 'topconn.ch'
#include 'fileio.ch'
#INCLUDE "rwmake.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ PE01NFESEFAZ() ºAutor ³ Luiz Alberto º Data ³ 26/11/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada para Tratamento NFESEFAZ XML º±±
±±º ³ Acrescenta Largura, Comprimento e Rolo na Descrição do Item
da Nota Fiscal º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
#define aPROD 1 //-> aProd
#define cMENSCLI 2 //-> cMensCli
#define cMENSFIS 3 //-> cMensFis
#define aDEST 4 //-> aDest
#define aNOTA 5 //-> aNota
#define aINFOITEM 6 //-> aInfoItem
#define aDUPL 7 //-> aDupl
#define aTRANSP 8 //-> aTransp
#define aENTREGA 9 //-> aEntrega
#define aRETIRADA 10 //-> aRetirada
#define aVEICULO 11 //-> aVeiculo
#define aREBOQUE 11 //-> aReboque
#define PRODUTO 2
#define DESCR 4
#define PEDIDO 1
#define ITEMPV 2
// aRetorno[1] -> aProd
// aRetorno[2] -> cMensCli
// aRetorno[3] -> cMensFis
// aRetorno[4] -> aDest
// aRetorno[5] -> aNota
// aRetorno[6] -> aInfoItem
// aRetorno[7] -> aDupl
// aRetorno[8] -> aTransp
// aRetorno[9] -> aEntrega
// aRetorno[10] -> aRetirada
// aRetorno[11] -> aVeiculo
// aRetorno[11] -> aReboque
USER FUNCTION PE01NFESEFAZ()
Local aParam := PARAMIXB
Local aArea := GetArea()
cMensCli := aParam[cMENSCLI] // Mensagem da Nota Fiscal
cMensCli += 'O que ainda dá algum alento ao PSDB é o fato de os mineiros continuarem honrando a fama de esconderem o jogo até a última hora. Na pesquisa Ibope, 10% dizem que vão votar em branco ou nulo. E outros 17% declaram ainda não terem decidido –apesar de faltarem só 19 dias para a eleição.
Aécio está em um distante terceiro lugar na disputa presidencial. Se sofrer uma derrota na disputa pelo governo de Minas Gerais, o tucano ficará fragilizado em seu próprio partido.
Em 2018, o PSDB novamente tentará disputar a Presidência da República –o tamanho da votação de Aécio e o seu desempenho em solo mineiro é que vai determinar se ele terá chances de ser candidato novamente.
Tudo considerado, sobra para Aécio nesta fase final do ciclo eleitoral se concentrar em Minas Gerais para tentar reverter o cenário que é, por enquanto, péssimo para o tucano em seu próprio Estado.'
aParam[cMENSCLI] := cMensCli
RestArea(aArea)
Return aParam
#include 'protheus.ch'
#include 'tbiconn.ch'
#include 'topconn.ch'
#include 'fileio.ch'
#INCLUDE "rwmake.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ PE01NFESEFAZ() ºAutor ³ Luiz Alberto º Data ³ 26/11/13 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Ponto de Entrada para Tratamento NFESEFAZ XML º±±
±±º ³ Acrescenta Largura, Comprimento e Rolo na Descrição do Item
da Nota Fiscal º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
#define aPROD 1 //-> aProd
#define cMENSCLI 2 //-> cMensCli
#define cMENSFIS 3 //-> cMensFis
#define aDEST 4 //-> aDest
#define aNOTA 5 //-> aNota
#define aINFOITEM 6 //-> aInfoItem
#define aDUPL 7 //-> aDupl
#define aTRANSP 8 //-> aTransp
#define aENTREGA 9 //-> aEntrega
#define aRETIRADA 10 //-> aRetirada
#define aVEICULO 11 //-> aVeiculo
#define aREBOQUE 11 //-> aReboque
#define PRODUTO 2
#define DESCR 4
#define PEDIDO 1
#define ITEMPV 2
// aRetorno[1] -> aProd
// aRetorno[2] -> cMensCli
// aRetorno[3] -> cMensFis
// aRetorno[4] -> aDest
// aRetorno[5] -> aNota
// aRetorno[6] -> aInfoItem
// aRetorno[7] -> aDupl
// aRetorno[8] -> aTransp
// aRetorno[9] -> aEntrega
// aRetorno[10] -> aRetirada
// aRetorno[11] -> aVeiculo
// aRetorno[11] -> aReboque
USER FUNCTION PE01NFESEFAZ()
Local aParam := PARAMIXB
Local aArea := GetArea()
cMensCli := aParam[cMENSCLI] // Mensagem da Nota Fiscal
cMensCli += 'O que ainda dá algum alento ao PSDB é o fato de os mineiros continuarem honrando a fama de esconderem o jogo até a última hora. Na pesquisa Ibope, 10% dizem que vão votar em branco ou nulo. E outros 17% declaram ainda não terem decidido –apesar de faltarem só 19 dias para a eleição.
Aécio está em um distante terceiro lugar na disputa presidencial. Se sofrer uma derrota na disputa pelo governo de Minas Gerais, o tucano ficará fragilizado em seu próprio partido.
Em 2018, o PSDB novamente tentará disputar a Presidência da República –o tamanho da votação de Aécio e o seu desempenho em solo mineiro é que vai determinar se ele terá chances de ser candidato novamente.
Tudo considerado, sobra para Aécio nesta fase final do ciclo eleitoral se concentrar em Minas Gerais para tentar reverter o cenário que é, por enquanto, péssimo para o tucano em seu próprio Estado.'
aParam[cMENSCLI] := cMensCli
RestArea(aArea)
Return aParam
Por favor Acessar ou Registrar para participar da conversa.
- MDKDU
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 94
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25183
por MDKDU
Respondido por MDKDU no tópico Campo Informações Complementares - DANFE
Luiz
Bom dia
Muito Obrigado vou testar aqui, o texto e grande pois preciso colocar informações de um contrato quando for emitir a Danfe.
Cliente pede.. ai ja viu neh!...kkkk
Mas obrigado mesmo !
Abrsss
Bom dia
Muito Obrigado vou testar aqui, o texto e grande pois preciso colocar informações de um contrato quando for emitir a Danfe.
Cliente pede.. ai ja viu neh!...kkkk
Mas obrigado mesmo !
Abrsss
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Campo Informações Complementares - DANFE
Tempo para a criação da página:0.082 segundos