Estou precisando gravar alguns registros nas tabelas SPED050 e SPED054 gostaria de uma ajuda. ALERT("NFE"+TRBX->F2_DOC) DBSELECTAREA("SPED050") RECLOCK("SPED050",.T.) SPED050->ID_ENT := '000001' SPED050->NFE_ID := TRBX->F2_PREFIXO+TRBX->F2_DOC SPED050->DATE_NFE := STOD(TRBX->F2_EMISSAO) SPED050->TIME_NFE := TRBX->F2_HORA SPED050->AMBIENTE := 1 SPED050->MODALIDADE:= 1 SPED050->STATUS := 6 SPED050->STATUSCANC:= 0 SPED050->STATUSMAIL:= 2 SPED050->EMAIL := 'nfe@paisagemdistribuidora.com.br' SPED050->MODELO := '55' SPED050->CNPJDEST := TRBX->A1_CGC SPED050->DATA_ENFE := STOD(TRBX->F2_EMISSAO) SPED050->TIME_ENFE := TRBX->F2_HORA SPED050->DOC_ID := SUBSTRING(TRBX->F2_DOC,5,5) SPED050->DOC_SERIE := 1 SPED050->DOC_CHV := TRBX->F2_CHVNFE SPED050->VERSAO := '4.00' MSUNLOCK() DBSELECTAREA("SPED054") RECLOCK("SPED054",.T.) SPED054->ID_ENT := '000001' SPED054->NFE_ID := TRBX->F2_PREFIXO+TRBX->F2_DOC SPED054->NFE_CHV := TRBX->F2_CHVNFE SPED054->CSTAT_SEFR:= '100' MSUNLOCK() TRBX->(DbSkip())
SPED050 e SPED054.
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
Bom dia
Para inserir ou alterar dados dessas tabelas use APENAS comandos SQL, eles podem estar dentro do ADVPL, mas não use os comandos ADVPL.
-
Luiz, Ficou confuso o fonte, tem como colocar em um arquivo e anexar no topico?
— FELIPE CAIADO ALMEIDA 13 de Nov de 2020