Mudanças entre as edições de "Cadastro de Textos Padrões"
(→Registro do Texto Padrão) |
|||
| (4 revisões intermediárias pelo mesmo usuário não estão sendo mostradas) | |||
| Linha 5: | Linha 5: | ||
*'''Nome:''' Campo para definir o nome do cadastro do Texto Padrão. | *'''Nome:''' Campo para definir o nome do cadastro do Texto Padrão. | ||
| + | *'''Sigla:''' A sigla de identificação do texto padrão. Utilizado como código de identificação no registro 0450 do SPED EFD referente as informações implementares das notas fiscais. | ||
*'''Origem do Texto:''' Podemos informar um texto fixo, ou automatizado com a utilização de [[Scripts]]. | *'''Origem do Texto:''' Podemos informar um texto fixo, ou automatizado com a utilização de [[Scripts]]. | ||
**'''Informado:''' Será habilitado um campo para digitação do texto. | **'''Informado:''' Será habilitado um campo para digitação do texto. | ||
***'''Texto:''' Campo livre para se digitar o texto padrão. | ***'''Texto:''' Campo livre para se digitar o texto padrão. | ||
| − | **'''Script:''' Selecionar o script correspondente ao texto esperado. | + | **'''Script:''' Selecionar o script correspondente ao texto esperado. Quando utilizado texto por script no faturamento, a execução do script vai ocorrer apenas na emissão da nota fiscal. |
==='''Modelo de Script para o Texto Padrão'''=== | ==='''Modelo de Script para o Texto Padrão'''=== | ||
| − | O exemplo abaixo retorna o texto com a forma de cobrança presente na capa do documento. | + | O exemplo abaixo retorna o texto com a forma de cobrança presente na capa do documento. O nome do script deve ser o mesmo nome da função principal do script. |
Function PH_RetornaCampoFormaCobranca(DocumentoID:Int64):String; | Function PH_RetornaCampoFormaCobranca(DocumentoID:Int64):String; | ||
| Linha 26: | Linha 27: | ||
QForCob.ParamByName('DOC').Value := DocumentoID; | QForCob.ParamByName('DOC').Value := DocumentoID; | ||
QForCob.Open; | QForCob.Open; | ||
| − | + | if (Trim(QForCob.FieldByName('NOME').AsString) <> '') then | |
| − | if (Trim(QForCob.FieldByName('NOME').AsString) <> '') then | + | Result := 'Forma de Cobrança: '+Trim(QForCob.FieldByName('NOME').AsString); |
| − | Result := 'Forma de Cobrança: '+Trim(QForCob.FieldByName('NOME').AsString); | ||
finally | finally | ||
QForCob.Free; | QForCob.Free; | ||
end; | end; | ||
end; | end; | ||
Edição atual tal como às 16h00min de 29 de agosto de 2024
Conceito
Aqui são cadastrados os textos padrões para serem utilizados nos documentos de forma automática. Os textos que serão utilizados em cada documento podem ser relacionados sempre do tipo do documento. Para os casos onde é necessário a geração dinâmica do texto, podemos utilizar os scripts para geração.
Registro do Texto Padrão
- Nome: Campo para definir o nome do cadastro do Texto Padrão.
- Sigla: A sigla de identificação do texto padrão. Utilizado como código de identificação no registro 0450 do SPED EFD referente as informações implementares das notas fiscais.
- Origem do Texto: Podemos informar um texto fixo, ou automatizado com a utilização de Scripts.
- Informado: Será habilitado um campo para digitação do texto.
- Texto: Campo livre para se digitar o texto padrão.
- Script: Selecionar o script correspondente ao texto esperado. Quando utilizado texto por script no faturamento, a execução do script vai ocorrer apenas na emissão da nota fiscal.
- Informado: Será habilitado um campo para digitação do texto.
Modelo de Script para o Texto Padrão
O exemplo abaixo retorna o texto com a forma de cobrança presente na capa do documento. O nome do script deve ser o mesmo nome da função principal do script.
Function PH_RetornaCampoFormaCobranca(DocumentoID:Int64):String;
var
QForCob:TPHQuery;
begin
QForCob := NewPHQuery;
try
QForCob.Add('SELECT A.NOME '+
'FROM FORMASCOBRANCA A '+
'INNER JOIN DOCUMENTOS B ON B.FORMACOBRANCA = A.ID '+
'WHERE B.ID = :DOC ');
QForCob.ParamByName('DOC').Value := DocumentoID;
QForCob.Open;
if (Trim(QForCob.FieldByName('NOME').AsString) <> ) then
Result := 'Forma de Cobrança: '+Trim(QForCob.FieldByName('NOME').AsString);
finally
QForCob.Free;
end;
end;
