× Linguagem de Programação ADVPL

Perguntas Campo Informações Complementares - DANFE

Mais
9 anos 7 meses atrás #25067 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

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 7 meses atrás #25173 por admin
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

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 7 meses atrás #25183 por MDKDU
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

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.110 segundos
Joomla templates by a4joomla