Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
{
    "L1_FILIAL": "&self:DePara('SM0', self:oRegistro:_CodigoLoja:Text, 1, 0)",
    "L1_CLIENTE": "&IIF( Empty(self:oRegistro:_IdentificacaoCliente:Text), SuperGetMv('MV_CLIPAD', .F., '000001'), self:DePara('SA1', self:oRegistro:_IdentificacaoCliente:Text, 2,0) )",
    "L1_LOJA": "&SuperGetMv('MV_LOJPAD', .F., '01')",
    "L1_OPERADO": "C01",
    "L1_EMISSAO": "&DtoS( CtoD( SubStr(self:oRegistro:_DataHora:Text, 1, 10) ) )",
    "L1_NUMCFIS": "&self:oRegistro:_Numero:Text",
    "L1_DOC": "&IIF(self:oRegistro:_SiglaModelo:Text == '59',StrZero(Val(self:oRegistro:_Numero:Text),6),IIF(self:oRegistro:_SiglaModelo:Text == '65',StrZero(Val(self:oRegistro:_Numero:Text),9),cValToChar(self:oRegistro:_Numero:Text)))",
    "L1_SERIE": "&IIF(ExistFunc('RMILjEsta'),RMILjEsta(self:DePara('SM0', self:oRegistro:_CodigoLoja:Text, 1, 0), self:oRegistro:_SiglaModelo:Text, self:oRegistro:_SerieNFCe:Text, self:oRegistro:_NumeroImpressora:Text, self:oRegistro:_NumeroPDV:Text, .T.), Return .F.)",
    "L1_KEYNFCE": "&IIF(self:oRegistro:_SiglaModelo:Text <> '2D', self:oRegistro:_ChaveNFCe:Text, '')",
    "L1_SERSAT": "&IIF(self:oRegistro:_SiglaModelo:Text == '59', self:oRegistro:_SerieNFCe:Text, '')",
    "L1_SERPDV": "&IIF(self:oRegistro:_SiglaModelo:Text == '2D', self:oRegistro:_NumeroImpressora:Text, '')",
    "L1_COMIS": 0,
    "L1_VLRTOT": "&Val(self:oRegistro:_ValorLiquido:Text)",
    "L1_VALBRUT": "&Val(self:oRegistro:_ValorBruto:Text)",
    "L1_VLRLIQ": "&Val(self:oRegistro:_ValorLiquido:Text)",
    "L1_VALMERC": "&Val(self:oRegistro:_ValorBruto:Text)",
    "L1_DESCONT": "&Val(self:oRegistro:_ValorDesconto:Text)",
    "L1_CGCCLI": "&self:oRegistro:_CPFCliente:Text",
    "L1_MSEXP": "&DtoS(Date())",
    "L1_CONDPG": "CN",
    "L1_TIPO": "V",
    "L1_TIPOCLI": "F",
    "L1_PDV": "&IIF(ExistFunc('RMILjEsta'),RMILjEsta(self:DePara('SM0', self:oRegistro:_CodigoLoja:Text, 1, 0), self:oRegistro:_SiglaModelo:Text, self:oRegistro:_SerieNFCe:Text, self:oRegistro:_NumeroImpressora:Text, self:oRegistro:_NumeroPDV:Text, .F.), Return .F.)",
    "L1_ORIGEM": "N",
    "SL2": [
        {
            "L2_FILIAL": "&self:DePara('SM0', self:oRegistro:_CodigoLoja:Text, 1, 0)",
            "L2_PRODUTO": "&self:DePara('SB1', self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_CodigoProduto:Text, 2,0)",
            "L2_ITEM": "&Right( AllTrim(self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_NumeroItem:Text), TamSx3('L2_ITEM')[1])",
            "L2_VEND": "&IIF( Empty(self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_IdentificacaoVendedor:Text), SuperGetMv('MV_VENDPAD', .F., '000001'), self:DePara('SA3',               self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_IdentificacaoVendedor:Text, 2,0) )",
            "L2_QUANT": "&Val(self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_Quantidade:Text)",
            "L2_VRUNIT": "&Val(self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_ValorUnitarioLiquido:Text)",
            "L2_VLRITEM": "&Val(self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_ValorTotalLiquido:Text)",
            "L2_LOCAL": "&SuperGetMv('MV_LOCALIZ', .F., '01')",
            "L2_UM": "&self:DePara('SAH', self:oRegistro:_Itens:_Lc_ItemCupomfiscal[nItem]:_UnidadeMedida:Text, 2,0)",
            "L2_TES": "&SuperGetMv('MV_TESSAI', .F., '501')",
            "L2_CF": "",
            "L2_EMISSAO": "&DtoS( CtoD( SubStr(self:oRegistro:_DataHora:Text, 1, 10) ) )"
        }
    ],
    "SL4": [
        {
            "L4_FILIAL": "&self:DePara('SM0', self:oRegistro:_CodigoLoja:Text, 1, 0)",
            "L4_DATA": "&DtoS( CtoD( SubStr(self:oRegistro:_DataHora:Text, 1, 10) ) )",
            "L4_VALOR": "&Val(self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_ValorPagamento:Text)",
            "L4_FORMA": "&IIF(!Empty(self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_FormaPagamento:Text),self:DePara('SX5', self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_FormaPagamento:Text, 3),'')",
            "L4_ADMINIS": "&IIF( Empty(self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_CodigoAdministradoraCartao:Text), '', self:DePara('SAE', self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_CodigoAdministradoraCartao:Text, 2) )",
            "L4_AUTORIZ": "&AllTrim(self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_Autorizacao:Text)",
            "L4_NSUTEF": "&self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_NSU:Text",
            "L4_PARCTEF": "&self:oRegistro:_FormasPagamento:_Lc_FormaPagamento[nItem]:_Parcela:Text"
        }
    ]
}

...