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())